Attribute VB_Name = "ASROutputFileFees"
'WRITTEN BY JALISA GREENE
'LAST MODIFIED BY JALISA GREENE
'LAST MODIFIED DATE: 6/9/2014

Dim returnRange As Range
Dim loc As Range

Public Sub FeesContainer1(loc As Range, rowNum As Integer)
    'CONTAINER 1 FEES
    If v1 = True Then
        loc.Select
        ActiveCell.Offset(0, 9).Select
        Call Cont1Base(rowNum)
        
        'Insert Billing Correction fees'
        Range("O" & loc.Row).Select
        If c1 = True Then
            Call InsertCont1Fees(rowNum)
        Else:
            Call Cont1Base(rowNum)
        End If
        
        'Insert rate reduction fees'
        Range("T" & loc.Row).Select
        If r1 = True Then
            Call Cont1RateReducFees(rowNum)
        ElseIf c1 = True Then
            Call InsertCont1Fees(rowNum)
        Else:
            Call Cont1Base(rowNum)
        End If
        
        'Insert Vendor Switch fees'
        If vs1 = True Then
            If same = True Then
                VendorMarker.Select
                ActiveCell.Offset(0, 1).Select
            Else:
                loc.Select
                ActiveCell.Offset(0, 25).Select
            End If
            Call Cont1VendorSwitchFees(rowNum)
        ElseIf r1 = True Then
            If same = True Then
                VendorMarker.Select
                ActiveCell.Offset(0, 1).Select
            Else:
                loc.Select
                ActiveCell.Offset(0, 25).Select
            End If
            Call Cont1RateReducFees(rowNum)
        ElseIf c1 = True Then
            If same = True Then
                VendorMarker.Select
                ActiveCell.Offset(0, 1).Select
            Else:
                loc.Select
                ActiveCell.Offset(0, 25).Select
            End If
            Call InsertCont1Fees(rowNum)
        Else:
            If same = True Then
                VendorMarker.Select
                ActiveCell.Offset(0, 1).Select
            Else:
                loc.Select
                ActiveCell.Offset(0, 25).Select
            End If
            Call Cont1Base(rowNum)
        End If
        
        'INSERT SERVICE STANDARDIZATION FEES'
        Range("AE" & loc.Row).Select
        If s1 = True Then
            Call Cont1ServiceStandFees(rowNum)
        ElseIf vs1 = True Then
            Call Cont1VendorSwitchFees(rowNum)
        ElseIf r1 = True Then
            Call Cont1RateReducFees(rowNum)
        ElseIf c1 = True Then
            Call InsertCont1Fees(rowNum)
        Else:
            Call Cont1Base(rowNum)
        End If
        
        
        'IMPLEMENTED FEES'
        
        'Rate Changes
        Range("AX" & loc.Row).Select
        Call Cont1NewRates(loc, rowNum)
        
        'Implemented Fees
        Range("AS" & loc.Row).Select
        Call Cont1ImpFees(rowNum)
        
    End If
End Sub
   
Public Sub FeesContainer2(loc As Range, rowNum As Integer)
    'CONTAINER 2'
    If v1 = True And v2 = True Then
        loc.Select
        If same = True Then
            ActiveCell.Offset(0, 9).Select
        Else: ActiveCell.Offset(10, 9).Select
        End If
        Call Cont2Base(rowNum)
        
        'insert billing error fees'
        If c2 = True Then
            loc.Select
            If same = True Then
                ActiveCell.Offset(0, 14).Select
            Else: ActiveCell.Offset(10, 14).Select
            End If
            Call InsertCont2Fees(rowNum)
        Else:
            loc.Select
            If same = True Then
                ActiveCell.Offset(0, 14).Select
            Else: ActiveCell.Offset(10, 14).Select
            End If
            Call Cont2Base(rowNum)
        End If
        
        'insert rate reduction fees'
        If r2 = True Then
            loc.Select
            If same = True Then
                ActiveCell.Offset(0, 19).Select
            Else: ActiveCell.Offset(10, 19).Select
            End If
            Call Cont2RateReducFees(rowNum)
        ElseIf c2 = True Then
            loc.Select
            If same = True Then
                ActiveCell.Offset(0, 19).Select
            Else: ActiveCell.Offset(10, 19).Select
            End If
            Call InsertCont2Fees(rowNum)
        Else:
            loc.Select
            If same = True Then
                ActiveCell.Offset(0, 19).Select
            Else: ActiveCell.Offset(10, 19).Select
            End If
            Call Cont2Base(rowNum)
        End If
                
        'Insert Vendor Switch Fees'
        If vs2 = True Then
            loc.Select
            If same = True Then
                ActiveCell.Offset(0, 25).Select
            Else:
                ActiveCell.Offset(10, 25).Select
            End If
            Call Cont2VendorSwitchFees(rowNum)
        ElseIf r2 = True Then
            loc.Select
            If same = True Then
                ActiveCell.Offset(0, 25).Select
                'ActiveCell.Offset(0, 1).Select
            Else:
                ActiveCell.Offset(10, 25).Select
            End If
            Call Cont2RateReducFees(rowNum)
        ElseIf c2 = True Then
            loc.Select
            If same = True Then
                ActiveCell.Offset(0, 25).Select
            Else:
                ActiveCell.Offset(10, 25).Select
            End If
            Call InsertCont2Fees(rowNum)
        Else:
            loc.Select
            If same = True Then
                ActiveCell.Offset(0, 25).Select
            Else:
                ActiveCell.Offset(10, 25).Select
            End If
            Call Cont2Base(rowNum)
        End If
        
        
        'INSERT SERVICE STANDARDIZATION FEES'
        Range("AE" & loc.Row).Select
        If s2 = True Then
            Call Cont2ServiceStandFees(rowNum)
        ElseIf vs2 = True Then
            If same <> True Then ActiveCell.Offset(10).Select
                Call Cont2VendorSwitchFees(rowNum)
        ElseIf r2 = True Then
            If same <> True Then ActiveCell.Offset(10).Select
            Call Cont2RateReducFees(rowNum)
        ElseIf c2 = True Then
            If same <> True Then ActiveCell.Offset(10).Select
            Call InsertCont2Fees(rowNum)
        Else:
            If same <> True Then ActiveCell.Offset(10).Select
            Call Cont2Base(rowNum)
        End If
        
        
        'IMPLEMENTED FEES'
        
        'Rate Change Fees
        
        If same = True Then
            Range("AX" & loc.Row).Select
            Call Cont2NewRates(loc, rowNum)
            Range("AS" & loc.Row).Select
            Call Cont2ImpFees(rowNum)
        Else:
            Range("AX" & loc.Offset(10).Row).Select
            Call Cont2NewRates(loc, rowNum)
            Range("AS" & loc.Offset(10).Row).Select
            Call Cont2ImpFees(rowNum)
        End If
    End If
End Sub

Public Sub FeesContainer3(loc As Range, rowNum As Integer)
    'CONTAINER 3'
    If v1 = True And v2 = True And v3 = True Then
        loc.Select
        If same = True Then
            ActiveCell.Offset(0, 9).Select
        Else: ActiveCell.Offset(20, 9).Select
        End If
        Call Cont3Base(rowNum)
        'insert Billing Correction fees'
        If c3 = True Then
            loc.Select
            If same = True Then
            ActiveCell.Offset(0, 14).Select
        Else: ActiveCell.Offset(20, 14).Select
        End If
            Call InsertCont3Fees(rowNum)
        Else:
            loc.Select
            If same = True Then
            ActiveCell.Offset(0, 14).Select
        Else: ActiveCell.Offset(20, 14).Select
        End If
            Call Cont3Base(rowNum)
        End If
        'Insert Rate Reduction fees'
        If r3 = True Then
            loc.Select
            If same = True Then
            ActiveCell.Offset(0, 19).Select
        Else: ActiveCell.Offset(20, 19).Select
        End If
            Call Cont3RateReducFees(rowNum)
        ElseIf c3 = True Then
            loc.Select
            If same = True Then
            ActiveCell.Offset(0, 19).Select
        Else: ActiveCell.Offset(20, 19).Select
        End If
            Call InsertCont3Fees(rowNum)
        Else:
            loc.Select
            If same = True Then
            ActiveCell.Offset(0, 19).Select
        Else: ActiveCell.Offset(20, 19).Select
        End If
            Call Cont3Base(rowNum)
        End If
        
        'Insert Vendor Switch Fees'
        If vs3 = True Then
            If same = True Then
                VendorMarker.Select
                ActiveCell.Offset(0, 1).Select
            Else:
                loc.Select
                ActiveCell.Offset(20, 25).Select
            End If
            Call Cont3VendorSwitchFees(rowNum)
        ElseIf r3 = True Then
            If same = True Then
                VendorMarker.Select
                ActiveCell.Offset(0, 1).Select
            Else:
                loc.Select
                ActiveCell.Offset(20, 25).Select
            End If
            Call Cont3RateReducFees(rowNum)
        ElseIf c3 = True Then
            If same = True Then
                VendorMarker.Select
                ActiveCell.Offset(0, 1).Select
            Else:
                loc.Select
                ActiveCell.Offset(20, 25).Select
            End If
            Call InsertCont3Fees(rowNum)
        Else:
            If same = True Then
                VendorMarker.Select
                ActiveCell.Offset(0, 1).Select
            Else:
                loc.Select
                ActiveCell.Offset(20, 25).Select
            End If
            Call Cont3Base(rowNum)
        End If
        
        'INSERT SERVICE STANDARDIZATION FEES'
        Range("AE" & loc.Row).Select
        If s3 = True Then
            Call Cont3ServiceStandFees(rowNum)
        ElseIf vs3 = True Then
            If same <> True Then ActiveCell.Offset(20).Select
                Call Cont3VendorSwitchFees(rowNum)
        ElseIf r3 = True Then
            If same <> True Then ActiveCell.Offset(20).Select
            Call Cont3RateReducFees(rowNum)
        ElseIf c3 = True Then
            If same <> True Then ActiveCell.Offset(20).Select
            Call InsertCont3Fees(rowNum)
        Else:
            If same <> True Then ActiveCell.Offset(20).Select
            Call Cont3Base(rowNum)
        End If
        
        'Implemented Fees'
        If same = True Then
            Range("AX" & loc.Row).Select
            Call Cont3NewRates(loc, rowNum)
            Range("AS" & loc.Row).Select
            Call Cont3ImpFees(rowNum)
        Else:
            Range("AX" & loc.Offset(20).Row).Select
            Call Cont3NewRates(loc, rowNum)
            Range("AS" & loc.Offset(20).Row).Select
            Call Cont3ImpFees(rowNum)
        End If
        
    End If
End Sub
              
Public Sub FeesContainer4(loc As Range, rowNum As Integer)
    'CONTAINER 4'
    If (v1 = True Or v2 = True Or v3 = True) And v4 = True Then
        loc.Select
        If same = True Then
            ActiveCell.Offset(0, 9).Select
        Else: ActiveCell.Offset(30, 9).Select
        End If
        Call Cont4Base(rowNum)
        
        'Insert Billing Corrections'
        If c4 = True Then
            loc.Select
            If same = True Then
            ActiveCell.Offset(0, 14).Select
        Else: ActiveCell.Offset(30, 14).Select
        End If
            Call InsertCont4Fees(rowNum)
        Else:
            loc.Select
            If same = True Then
            ActiveCell.Offset(0, 14).Select
        Else: ActiveCell.Offset(30, 14).Select
        End If
            Call Cont4Base(rowNum)
        End If
        
        'Insert Rate Reductions'
        If r4 = True Then
            loc.Select
            If same = True Then
            ActiveCell.Offset(0, 19).Select
        Else: ActiveCell.Offset(30, 19).Select
        End If
            Call Cont4RateReducFees(rowNum)
        ElseIf c4 = True Then
            loc.Select
            If same = True Then
            ActiveCell.Offset(0, 19).Select
        Else: ActiveCell.Offset(30, 19).Select
        End If
            Call InsertCont4Fees(rowNum)
        Else:
            loc.Select
            If same = True Then
            ActiveCell.Offset(0, 19).Select
        Else: ActiveCell.Offset(30, 19).Select
        End If
            Call Cont4Base(rowNum)
        End If
        
        'Insert Vendor Switch Fees'
        If vs4 = True Then
            If same = True Then
                VendorMarker.Select
                ActiveCell.Offset(0, 1).Select
            Else:
                loc.Select
                ActiveCell.Offset(30, 25).Select
            End If
            Call Cont4VendorSwitchFees(rowNum)
        ElseIf r4 = True Then
            If same = True Then
                VendorMarker.Select
                ActiveCell.Offset(0, 1).Select
            Else:
                loc.Select
                ActiveCell.Offset(30, 25).Select
            End If
            Call Cont4RateReducFees(rowNum)
        ElseIf c4 = True Then
            If same = True Then
                VendorMarker.Select
                ActiveCell.Offset(0, 1).Select
            Else:
                loc.Select
                ActiveCell.Offset(30, 25).Select
            End If
            Call InsertCont4Fees(rowNum)
        Else:
            If same = True Then
                VendorMarker.Select
                ActiveCell.Offset(0, 1).Select
            Else:
                loc.Select
                ActiveCell.Offset(30, 25).Select
            End If
            Call Cont4Base(rowNum)
        End If
        
        'INSERT SERVICE STANDARDIZATION FEES'
        Range("AE" & loc.Row).Select
        If s4 = True Then
            Call Cont4ServiceStandFees(rowNum)
        ElseIf vs4 = True Then
            If same <> True Then ActiveCell.Offset(30).Select
                Call Cont4VendorSwitchFees(rowNum)
        ElseIf r4 = True Then
            If same <> True Then ActiveCell.Offset(30).Select
            Call Cont4RateReducFees(rowNum)
        ElseIf c4 = True Then
            If same <> True Then ActiveCell.Offset(30).Select
            Call InsertCont4Fees(rowNum)
        Else:
            If same <> True Then ActiveCell.Offset(30).Select
            Call Cont4Base(rowNum)
        End If
        
        'Implemented Fees'
        If same = True Then
            Range("AX" & loc.Row).Select
            Call Cont4NewRates(loc, rowNum)
            Range("AS" & loc.Row).Select
            Call Cont4ImpFees(rowNum)
        Else:
            Range("AX" & loc.Offset(30).Row).Select
            Call Cont4NewRates(loc, rowNum)
            Range("AS" & loc.Offset(30).Row).Select
            Call Cont4ImpFees(rowNum)
        End If
    End If
End Sub

Public Sub FeesContainer5(loc As Range, rowNum As Integer)
    'CONTAINER 5'
    If (v1 = True Or v2 = True Or v3 = True Or v4 = True) And v5 = True Then
        loc.Select
        If same = True Then
            ActiveCell.Offset(0, 9).Select
        Else: ActiveCell.Offset(40, 9).Select
        End If
        Call Cont5Base(rowNum)
        'Insert Billing Corrections'
        If c5 = True Then
            loc.Select
            If same = True Then
                ActiveCell.Offset(0, 14).Select
            Else: ActiveCell.Offset(40, 14).Select
        End If
            Call InsertCont5Fees(rowNum)
        Else:
            loc.Select
            If same = True Then
                ActiveCell.Offset(0, 14).Select
            Else: ActiveCell.Offset(40, 14).Select
        End If
            Call Cont5Base(rowNum)
        End If
        
        If r5 = True Then
            loc.Select
            If same = True Then
            ActiveCell.Offset(0, 19).Select
        Else: ActiveCell.Offset(40, 19).Select
        End If
            Call Cont5RateReducFees(rowNum)
        ElseIf c5 = True Then
            loc.Select
            If same = True Then
            ActiveCell.Offset(0, 19).Select
        Else: ActiveCell.Offset(40, 19).Select
        End If
            Call InsertCont5Fees(rowNum)
        Else:
            loc.Select
            If same = True Then
            ActiveCell.Offset(0, 19).Select
        Else: ActiveCell.Offset(40, 19).Select
        End If
            Call Cont5Base(rowNum)
        End If
        'Insert Vendor Switch Fees'
        If vs5 = True Then
            If same = True Then
                VendorMarker.Select
                ActiveCell.Offset(0, 1).Select
            Else:
                loc.Select
                ActiveCell.Offset(40, 25).Select
            End If
            Call Cont5VendorSwitchFees(rowNum)
        ElseIf r5 = True Then
            If same = True Then
                VendorMarker.Select
                ActiveCell.Offset(0, 1).Select
            Else:
                loc.Select
                ActiveCell.Offset(40, 25).Select
            End If
            Call Cont5RateReducFees(rowNum)
        ElseIf c5 = True Then
            If same = True Then
                VendorMarker.Select
                ActiveCell.Offset(0, 1).Select
            Else:
                loc.Select
                ActiveCell.Offset(40, 25).Select
            End If
            Call InsertCont5Fees(rowNum)
        Else:
            If same = True Then
                VendorMarker.Select
                ActiveCell.Offset(0, 1).Select
            Else:
                loc.Select
                ActiveCell.Offset(40, 25).Select
            End If
            Call Cont5Base(rowNum)
        End If
        
        'INSERT SERVICE STANDARDIZATION FEES'
        Range("AE" & loc.Row).Select
        If s5 = True Then
            Call Cont5ServiceStandFees(rowNum)
        ElseIf vs5 = True Then
            If same <> True Then ActiveCell.Offset(40).Select
                Call Cont5VendorSwitchFees(rowNum)
        ElseIf r5 = True Then
            If same <> True Then ActiveCell.Offset(40).Select
            Call Cont5RateReducFees(rowNum)
        ElseIf c5 = True Then
            If same <> True Then ActiveCell.Offset(40).Select
            Call InsertCont5Fees(rowNum)
        Else:
            If same <> True Then ActiveCell.Offset(40).Select
            Call Cont5Base(rowNum)
        End If
        
        
        'Implemented Fees'
        If same = True Then
            Range("AX" & loc.Row).Select
            Call Cont3NewRates(loc, rowNum)
            Range("AS" & loc.Row).Select
            Call Cont5ImpFees(rowNum)
        Else:
            Range("AX" & loc.Offset(40).Row).Select
            Call Cont3NewRates(loc, rowNum)
            Range("AS" & loc.Offset(40).Row).Select
            Call Cont5ImpFees(rowNum)
        End If
        
    End If
End Sub
                
Public Sub FeesContainer6(loc As Range, rowNum As Integer)
    'CONTAINER 6'
    If v6 = True Then
        loc.Select
        ActiveCell.Offset(50, 9).Select
        Call Cont6Base(rowNum)
        
        'Insert Billing Corrections'
        If c6 = True Then
            loc.Select
            ActiveCell.Offset(50, 14).Select
            Call InsertCont6Fees(rowNum)
        Else:
            loc.Select
            ActiveCell.Offset(50, 14).Select
            Call Cont6Base(rowNum)
        End If
        'Insert Rate Reductions Fees'
        If r6 = True Then
            loc.Select
            ActiveCell.Offset(50, 19).Select
            Call Cont6RateReducFees(rowNum)
        ElseIf c6 = True Then
            loc.Select
            ActiveCell.Offset(50, 19).Select
            Call InsertCont6Fees(rowNum)
        Else:
            loc.Select
            ActiveCell.Offset(50, 19).Select
            Call Cont6Base(rowNum)
        End If
        'Insert Vendor Switch Fees'
        If vs6 = True Then
            If same = True Then
                VendorMarker.Select
                ActiveCell.Offset(0, 1).Select
            Else:
                loc.Select
                ActiveCell.Offset(50, 25).Select
            End If
            Call Cont6VendorSwitchFees(rowNum)
        ElseIf r6 = True Then
            If same = True Then
                VendorMarker.Select
                ActiveCell.Offset(0, 1).Select
            Else:
                loc.Select
                ActiveCell.Offset(50, 25).Select
            End If
            Call Cont6RateReducFees(rowNum)
        ElseIf c6 = True Then
            If same = True Then
                VendorMarker.Select
                ActiveCell.Offset(0, 1).Select
            Else:
                loc.Select
                ActiveCell.Offset(50, 25).Select
            End If
            Call InsertCont6Fees(rowNum)
        Else:
            If same = True Then
                VendorMarker.Select
                ActiveCell.Offset(0, 1).Select
            Else:
                loc.Select
                ActiveCell.Offset(50, 25).Select
            End If
            Call Cont6Base(rowNum)
        End If
        
        'INSERT SERVICE STANDARDIZATION FEES'
        Range("AE" & loc.Row).Select
        If s6 = True Then
            Call Cont6ServiceStandFees(rowNum)
        ElseIf vs6 = True Then
            If same <> True Then ActiveCell.Offset(50).Select
                Call Cont6VendorSwitchFees(rowNum)
        ElseIf r6 = True Then
            If same <> True Then ActiveCell.Offset(50).Select
            Call Cont6RateReducFees(rowNum)
        ElseIf c6 = True Then
            If same <> True Then ActiveCell.Offset(50).Select
            Call InsertCont6Fees(rowNum)
        Else:
            If same <> True Then ActiveCell.Offset(50).Select
            Call Cont6Base(rowNum)
        End If
        
        
        'Implemented Fees'
        Range("AS" & loc.Row).Select
        If same = True Then
            Range("AS" & VendorMarker.Row).Select
            Call Cont6ImpFees(rowNum)
        Else:
            ActiveCell.Offset(50).Select
            Call Cont6ImpFees(rowNum)
        End If
        
    End If
End Sub

Public Sub FeesContainer7(loc As Range, rowNum As Integer)
    'CONTAINER 7'
    If v7 = True Then
        loc.Select
        ActiveCell.Offset(70, 9).Select
        Call Cont7Base(rowNum)
        'Insert Billing Corrections'
        If c7 = True Then
            loc.Select
            ActiveCell.Offset(70, 14).Select
            Call InsertCont7Fees(rowNum)
        Else:
            loc.Select
            ActiveCell.Offset(70, 14).Select
            Call Cont7Base(rowNum)
        End If
        'Insert Rate Reductions Fees'
        If r7 = True Then
            loc.Select
            ActiveCell.Offset(70, 19).Select
            Call Cont7RateReducFees(rowNum)
        ElseIf c7 = True Then
            loc.Select
            ActiveCell.Offset(70, 19).Select
            Call InsertCont7Fees(rowNum)
        Else:
            loc.Select
            ActiveCell.Offset(70, 19).Select
            Call Cont7Base(rowNum)
        End If
        'Insert Vendor Switch Fees'
        If vs7 = True Then
            If same = True Then
                VendorMarker.Select
                ActiveCell.Offset(0, 1).Select
            Else:
                loc.Select
                ActiveCell.Offset(70, 25).Select
            End If
            Call Cont7VendorSwitchFees(rowNum)
        ElseIf r7 = True Then
            If same = True Then
                VendorMarker.Select
                ActiveCell.Offset(0, 1).Select
            Else:
                loc.Select
                ActiveCell.Offset(70, 25).Select
            End If
            Call Cont7RateReducFees(rowNum)
        ElseIf c7 = True Then
            If same = True Then
                VendorMarker.Select
                ActiveCell.Offset(0, 1).Select
            Else:
                loc.Select
                ActiveCell.Offset(70, 25).Select
            End If
            Call InsertCont7Fees(rowNum)
        Else:
            If same = True Then
                VendorMarker.Select
                ActiveCell.Offset(0, 1).Select
            Else:
                loc.Select
                ActiveCell.Offset(70, 25).Select
            End If
            Call Cont7Base(rowNum)
        End If
        
        'INSERT SERVICE STANDARDIZATION FEES'
        Range("AE" & loc.Row).Select
        If s7 = True Then
            Call Cont7ServiceStandFees(rowNum)
        ElseIf vs7 = True Then
            If same <> True Then ActiveCell.Offset(70).Select
                Call Cont7VendorSwitchFees(rowNum)
        ElseIf r7 = True Then
            If same <> True Then ActiveCell.Offset(70).Select
            Call Cont7RateReducFees(rowNum)
        ElseIf c7 = True Then
            If same <> True Then ActiveCell.Offset(70).Select
            Call InsertCont7Fees(rowNum)
        Else:
            If same <> True Then ActiveCell.Offset(70).Select
            Call Cont7Base(rowNum)
        End If
        
        
        'Implemented Fees'
        Range("AS" & loc.Row).Select
        If same = True Then
            Range("AS" & VendorMarker.Row).Select
            Call Cont7ImpFees(rowNum)
        Else:
            ActiveCell.Offset(70).Select
            Call Cont7ImpFees(rowNum)
        End If
        
    End If
End Sub
                
Public Sub FeesContainer8(loc As Range, rowNum As Integer)
    'CONTAINER 8'
    If v8 = True Then
        loc.Select
        ActiveCell.Offset(90, 9).Select
        Call Cont8Base(rowNum)
        'Insert Billing Corrections'
        If c8 = True Then
            loc.Select
            ActiveCell.Offset(90, 14).Select
            Call InsertCont8Fees(rowNum)
        Else:
            loc.Select
            ActiveCell.Offset(90, 14).Select
            Call Cont8Base(rowNum)
        End If
        'Insert Rate Reductions Fees'
        If r8 = True Then
            loc.Select
            ActiveCell.Offset(90, 19).Select
            Call Cont8RateReducFees(rowNum)
        ElseIf c8 = True Then
            loc.Select
            ActiveCell.Offset(90, 19).Select
            Call InsertCont8Fees(rowNum)
        Else:
            loc.Select
            ActiveCell.Offset(90, 19).Select
            Call Cont8Base(rowNum)
        End If
        'Insert Vendor Switch Fees'
        If vs8 = True Then
            If same = True Then
                VendorMarker.Select
                ActiveCell.Offset(0, 1).Select
            Else:
                loc.Select
                ActiveCell.Offset(90, 25).Select
            End If
            Call Cont8VendorSwitchFees(rowNum)
        ElseIf r8 = True Then
            If same = True Then
                VendorMarker.Select
                ActiveCell.Offset(0, 1).Select
            Else:
                loc.Select
                ActiveCell.Offset(90, 25).Select
            End If
            Call Cont8RateReducFees(rowNum)
        ElseIf c8 = True Then
            If same = True Then
                VendorMarker.Select
                ActiveCell.Offset(0, 1).Select
            Else:
                loc.Select
                ActiveCell.Offset(90, 25).Select
            End If
            Call InsertCont8Fees(rowNum)
        Else:
           If same = True Then
                VendorMarker.Select
                ActiveCell.Offset(0, 1).Select
            Else:
                loc.Select
                ActiveCell.Offset(90, 25).Select
            End If
            Call Cont8Base(rowNum)
        End If
        
        'INSERT SERVICE STANDARDIZATION FEES'
        Range("AE" & loc.Row).Select
        If s8 = True Then
            Call Cont8ServiceStandFees(rowNum)
        ElseIf vs8 = True Then
            If same <> True Then ActiveCell.Offset(90).Select
                Call Cont8VendorSwitchFees(rowNum)
        ElseIf r8 = True Then
            If same <> True Then ActiveCell.Offset(90).Select
            Call Cont8RateReducFees(rowNum)
        ElseIf c8 = True Then
            If same <> True Then ActiveCell.Offset(90).Select
            Call InsertCont8Fees(rowNum)
        Else:
            If same <> True Then ActiveCell.Offset(90).Select
            Call Cont8Base(rowNum)
        End If
        
        
        'Implemented Fees'
        Range("AS" & loc.Row).Select
        If same = True Then
            Range("AS" & VendorMarker.Row).Select
            Call Cont8ImpFees(rowNum)
        Else:
            ActiveCell.Offset(90).Select
            Call Cont8ImpFees(rowNum)
        End If
    End If
End Sub

Public Sub Cont1Base(rowNum As Integer)
'Baseline Spend Container 1
    'If theres an Environmental Fee for Container 1'
    If Worksheets("ASR").Range("AP" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = "Environmental Fee"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AP" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("AQ" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AQ" & rowNum).Value & "%"
        End If
    End If
    
    'If a Fee Type 1 Exists for Container 1'
    If Worksheets("ASR").Range("AR" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AR" & rowNum).Value
        If Worksheets("ASR").Range("BF" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BF" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AS" & rowNum).Value
    End If
    
    'If a Fee Type 2 Exists for Container 1'
    If Worksheets("ASR").Range("AT" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AT" & rowNum).Value
        If Worksheets("ASR").Range("BG" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BG" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AU" & rowNum).Value
    End If
    
    'If a Fee Type 3 Exists for Container 1'
    If Worksheets("ASR").Range("AV" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AV" & rowNum).Value
        If Worksheets("ASR").Range("BH" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BH" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AW" & rowNum).Value
    End If
    
    'If a Fee Type 4 Exists for Container 1'
    If Worksheets("ASR").Range("AX" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AX" & rowNum).Value
        If Worksheets("ASR").Range("BI" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BI" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AY" & rowNum).Value
    End If
    
    'If a Fee Type 5 Exists for Container 1'
    If Worksheets("ASR").Range("AZ" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AZ" & rowNum).Value
        If Worksheets("ASR").Range("BJ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BJ" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BA" & rowNum).Value
    End If
End Sub

Public Sub Cont2Base(rowNum As Integer)
'Baseline Spend Container 2
    If Worksheets("ASR").Range("CP" & rowNum).Value <> "" Then
            While ActiveCell.Value <> ""
                ActiveCell.Offset(1).Select
            Wend
            ActiveCell.Value = "Environmental Fee"
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("CP" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("CQ" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("CQ" & rowNum).Value & "%"
        End If
    End If
    
    'If Fee Type 1 Exists for Container 2'
    If Worksheets("ASR").Range("CR" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("CR" & rowNum).Value
        If Worksheets("ASR").Range("DF" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("DF" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("CS" & rowNum).Value
    End If
    
    'If Fee Type 2 Exists for Container 2'
    If Worksheets("ASR").Range("CT" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("CT" & rowNum).Value
        If Worksheets("ASR").Range("DG" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("DG" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("CU" & rowNum).Value
    End If

    'If Fee Type 3 Exists for Container 2'
    If Worksheets("ASR").Range("CV" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("CV" & rowNum).Value
        If Worksheets("ASR").Range("DH" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("DH" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("CW" & rowNum).Value
    End If
    
    'If Fee Type 4 Exists for Container 2'
    If Worksheets("ASR").Range("CX" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("CX" & rowNum).Value
        If Worksheets("ASR").Range("DI" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("DI" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("CY" & rowNum).Value
    End If
    
    'If Fee Type 5 Exists for Container 2'
    If Worksheets("ASR").Range("CZ" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("CZ" & rowNum).Value
        If Worksheets("ASR").Range("DJ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("DJ" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("DA" & rowNum).Value
    End If
End Sub

Public Sub Cont3Base(rowNum As Integer)
'Baseline Spend Container 3
    If Worksheets("ASR").Range("EP" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = "Environmental Fee"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("EP" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("EQ" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("EQ" & rowNum).Value & "%"
        End If
    End If
    'If Fee Type 1 Exists for Container 3'
    If Worksheets("ASR").Range("ER" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("ER" & rowNum).Value
        If Worksheets("ASR").Range("FF" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("FF" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ES" & rowNum).Value
    End If
    
    'If Fee type 2 Exists for Container 3'
    If Worksheets("ASR").Range("ET" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("ET" & rowNum).Value
        If Worksheets("ASR").Range("FG" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("FG" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("EU" & rowNum).Value
    End If
    
    'If Fee Type 3 Exists for Container 3'
    If Worksheets("ASR").Range("EV" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("EV" & rowNum).Value
        If Worksheets("ASR").Range("FH" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("FH" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("EW" & rowNum).Value
    End If
    
    'If Fee Type 4 Exists for Container 4'
    If Worksheets("ASR").Range("EX" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("EX" & rowNum).Value
        If Worksheets("ASR").Range("FI" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("FI" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("EY" & rowNum).Value
    End If
    
    'If Fee Type 5 Exists for Container 5'
    If Worksheets("ASR").Range("EZ" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("EZ" & rowNum).Value
        If Worksheets("ASR").Range("FJ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("FJ" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("FA" & rowNum).Value
    End If
End Sub

Public Sub Cont4Base(rowNum As Integer)
'Baseline Spend Container 4
    If Worksheets("ASR").Range("GP" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = "Environmental Fee"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("GP" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("GQ" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("GQ" & rowNum).Value & "%"
        End If
    End If
    
    'If Fee Type 1 Exists for Container 4'
    If Worksheets("ASR").Range("GR" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("GR" & rowNum).Value
        If Worksheets("ASR").Range("HF" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("HF" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("GS" & rowNum).Value
    End If
    'If Fee Type 2 Exists for Container 4'
    If Worksheets("ASR").Range("GT" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("GT" & rowNum).Value
        If Worksheets("ASR").Range("HG" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("HG" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("GU" & rowNum).Value
    End If
    
    'If Fee Type 3 Exists for Container 4'
    If Worksheets("ASR").Range("GV" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("GV" & rowNum).Value
        If Worksheets("ASR").Range("HH" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("HH" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("GW" & rowNum).Value
    End If
    
    'If Fee Type 4 Exists for Container 4'
    If Worksheets("ASR").Range("GX" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("GX" & rowNum).Value
        If Worksheets("ASR").Range("HI" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("HI" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("GY" & rowNum).Value
    End If
    
    'If Fee Type 5 Exists for Container 4'
    If Worksheets("ASR").Range("GZ" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("GZ" & rowNum).Value
        If Worksheets("ASR").Range("HJ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("HJ" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("HA" & rowNum).Value
    End If
End Sub
Public Sub Cont5Base(rowNum As Integer)
'Baseline Spend Container 5
    If Worksheets("ASR").Range("IP" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = "Environmental Fee"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("IP" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("IQ" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("IQ" & rowNum).Value & "%"
        End If
    End If
    
    'If Fee Type 1 Exists for Container 5'
    If Worksheets("ASR").Range("IR" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("IR" & rowNum).Value
        If Worksheets("ASR").Range("JF" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("JF" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("IS" & rowNum).Value
    End If
    
    'If Fee Type 2 Exists for Container 5'
    If Worksheets("ASR").Range("IT" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("IT" & rowNum).Value
        If Worksheets("ASR").Range("JG" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("JG" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("IU" & rowNum).Value
    End If
    
    'If Fee Type 3 Exists for Container 5'
    If Worksheets("ASR").Range("EV" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("IV" & rowNum).Value
        If Worksheets("ASR").Range("JH" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("JH" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("IW" & rowNum).Value
    End If
    
    'If Fee Type 4 Exists for Container 5'
    If Worksheets("ASR").Range("EX" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("IX" & rowNum).Value
        If Worksheets("ASR").Range("JI" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("JI" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("IY" & rowNum).Value
    End If
    
    'If Fee Type 5 Exists for Container 5'
    If Worksheets("ASR").Range("IZ" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("IZ" & rowNum).Value
        If Worksheets("ASR").Range("JK" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("JK" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("JA" & rowNum).Value
    End If
End Sub

Public Sub Cont6Base(rowNum As Integer)
'Baseline Spend Container 6
    
    'If Fee Type 1 Exists for Container 6 : Compactor Lease'
    If Worksheets("ASR").Range("KX" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("KX" & rowNum).Value
        If Worksheets("ASR").Range("LL" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("LL" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("KY" & rowNum).Value
    End If
    
    'If Fee Type 2 Exists for Container 6 : Excess Fee'
    If Worksheets("ASR").Range("KZ" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("KZ" & rowNum).Value
        If Worksheets("ASR").Range("LM" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("LM" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("LA" & rowNum).Value
    End If
    
    'Summary Charges'
    
    ActiveCell.Offset(3).Select
    ActiveCell.Value = "Consecutive Months of Weight Reports"
    ActiveCell.Font.Italic = True
    ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("LR" & rowNum).Value
    ActiveCell.Offset(1).Select
    ActiveCell.Value = "Max Weight"
    ActiveCell.Font.Italic = True
    ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("KJ" & rowNum).Value
    ActiveCell.Offset(1).Select
    ActiveCell.Value = "Average Hauls/Month"
    ActiveCell.Font.Italic = True
    ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("KL" & rowNum).Value
    ActiveCell.Offset(1).Select
    ActiveCell.Value = "Average Weight Per Haul"
    ActiveCell.Font.Italic = True
    ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("KM" & rowNum).Value
    
    ActiveCell.Offset(3).Select
    
    'Account Charges:'
    'Fuel/env fee
    If Worksheets("ASR").Range("KV" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = "Account Charges: "
        ActiveCell.Font.Underline = True
        ActiveCell.Offset(1).Select
        
        ActiveCell.Value = "Environmental Fee"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("KV" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("KW" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("KW" & rowNum).Value & "%"
        End If
    End If
    
    'If Fee Type 3 Exists for Container 6'
    If Worksheets("ASR").Range("LB" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("LB" & rowNum).Value
        If Worksheets("ASR").Range("LN" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("LN" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("LC" & rowNum).Value
    End If
    
    'If Fee Type 4 Exists for Container 6'
    If Worksheets("ASR").Range("LD" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("LD" & rowNum).Value
        If Worksheets("ASR").Range("LO" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("LO" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("LE" & rowNum).Value
    End If
    
    'If Fee Type 5 Exists for Container 6'
    If Worksheets("ASR").Range("LF" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("LF" & rowNum).Value
        If Worksheets("ASR").Range("LP" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("LP" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("LG" & rowNum).Value
    End If
End Sub

Public Sub Cont7Base(rowNum As Integer)
'Baseline Spend Container 7
    
    'If Fee Type 1 Exists for Container 7: Compactor Lease
    If Worksheets("ASR").Range("MX" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("MX" & rowNum).Value
        If Worksheets("ASR").Range("NL" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("NL" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("MY" & rowNum).Value
    End If
    
    'If Fee Type 2 Exists for Container 7: Excess Fee'
    If Worksheets("ASR").Range("MZ" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("MZ" & rowNum).Value
        If Worksheets("ASR").Range("NM" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("NM" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("NA" & rowNum).Value
    End If
    
    'Summary Charges'
    
    ActiveCell.Offset(3).Select
    ActiveCell.Value = "Consecutive Months of Weight Reports"
    ActiveCell.Font.Italic = True
    ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("NR" & rowNum).Value
    ActiveCell.Offset(1).Select
    ActiveCell.Value = "Max Weight"
    ActiveCell.Font.Italic = True
    ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("MJ" & rowNum).Value
    ActiveCell.Offset(1).Select
    ActiveCell.Value = "Average Hauls/Month"
    ActiveCell.Font.Italic = True
    ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("ML" & rowNum).Value
    ActiveCell.Offset(1).Select
    ActiveCell.Value = "Average Weight Per Haul"
    ActiveCell.Font.Italic = True
    ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("MM" & rowNum).Value
    
    'Account Charges
    ActiveCell.Offset(3).Select
    'Feul/env fee'
    If Worksheets("ASR").Range("MV" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = "Account Charges:"
        ActiveCell.Font.Underline = True
        ActiveCell.Offset(1).Select
        
        ActiveCell.Value = "Environmental Fee"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("MV" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("MW" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("MW" & rowNum).Value & "%"
        End If
    End If
    'If Fee Type 3 Exists for Container 7'
    If Worksheets("ASR").Range("NB" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("NB" & rowNum).Value
        If Worksheets("ASR").Range("NN" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("NN" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("NC" & rowNum).Value
    End If
    
    'If Fee Type 4 Exists for Container 7'
    If Worksheets("ASR").Range("ND" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("ND" & rowNum).Value
        If Worksheets("ASR").Range("NO" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("NO" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("NE" & rowNum).Value
    End If
    
    'If Fee Type 5 Exists for Container 7'
    If Worksheets("ASR").Range("NF" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("NF" & rowNum).Value
        If Worksheets("ASR").Range("NP" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("NP" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("NG" & rowNum).Value
    End If
End Sub

Public Sub Cont8Base(rowNum As Integer)
'Baseline Spend Container 8
    If Worksheets("ASR").Range("OV" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = "Environmental Fee"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("OV" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("OW" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("OW" & rowNum).Value & "%"
        End If
    End If
    
    'If Fee Type 1 Exists for Container 8'
    If Worksheets("ASR").Range("OX" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("OX" & rowNum).Value
        If Worksheets("ASR").Range("PL" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("PL" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("OY" & rowNum).Value
    End If
    
    'If Fee Type 2 Exists for Container 8'
    If Worksheets("ASR").Range("OZ" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("OZ" & rowNum).Value
        If Worksheets("ASR").Range("PM" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("PM" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("PA" & rowNum).Value
    End If
    
    'If Fee Type 3 Exists for Container 8'
    If Worksheets("ASR").Range("PB" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("PB" & rowNum).Value
        If Worksheets("ASR").Range("PN" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("PN" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("PC" & rowNum).Value
    End If
    
    'If Fee Type 4 Exists for Container 8'
    If Worksheets("ASR").Range("PD" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("PD" & rowNum).Value
        If Worksheets("ASR").Range("PO" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("PO" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("PE" & rowNum).Value
    End If
    
    'If Fee Type 5 Exists for Container 8'
    If Worksheets("ASR").Range("PF" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("PF" & rowNum).Value
        If Worksheets("ASR").Range("PP" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("PP" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("PG" & rowNum).Value
    End If
End Sub

Public Sub InsertCont1Fees(rowNum As Integer)
'Billing Corrections Container 1'
'If theres an Environmental Fee for Container 1'
    If Worksheets("ASR").Range("UO" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = "Environmental Fee"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("UO" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("UP" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("UP" & rowNum).Value & "%"
        End If
    End If
    
    'If a Fee Type 1 Exists for Container 1'
    If Worksheets("ASR").Range("UQ" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("UQ" & rowNum).Value
        If Worksheets("ASR").Range("US" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("US" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("UR" & rowNum).Value
    End If
    
    'If a Fee Type 2 Exists for Container 1'
    If Worksheets("ASR").Range("UT" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("UT" & rowNum).Value
        If Worksheets("ASR").Range("UV" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("UV" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("UU" & rowNum).Value
    End If
    
    'If a Fee Type 3 Exists for Container 1'
    If Worksheets("ASR").Range("UW" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("UW" & rowNum).Value
        If Worksheets("ASR").Range("UY" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("UY" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("UX" & rowNum).Value
    End If
    
    'If a Fee Type 4 Exists for Container 1'
    If Worksheets("ASR").Range("UZ" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("UZ" & rowNum).Value
        If Worksheets("ASR").Range("VB" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("VB" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("VA" & rowNum).Value
    End If
    
    'If a Fee Type 5 Exists for Container 1'
    If Worksheets("ASR").Range("VC" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("VC" & rowNum).Value
        If Worksheets("ASR").Range("VE" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("VE" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("VD" & rowNum).Value
    End If
End Sub

Public Sub InsertCont2Fees(rowNum As Integer)
'Billing Corrections Container 2'
'If theres an Environmental Fee for Container 2'
    If Worksheets("ASR").Range("VV" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = "Environmental Fee"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("VV" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("VW" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("VW" & rowNum).Value & "%"
        End If
    End If
    
    'If a Fee Type 1 Exists for Container 2'
    If Worksheets("ASR").Range("VX" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("VX" & rowNum).Value
        If Worksheets("ASR").Range("VZ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("VZ" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("VY" & rowNum).Value
    End If
    
    'If a Fee Type 2 Exists for Container 2'
    If Worksheets("ASR").Range("WA" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("WA" & rowNum).Value
        If Worksheets("ASR").Range("WC" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("WC" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("WB" & rowNum).Value
    End If
    
    'If a Fee Type 3 Exists for Container 2'
    If Worksheets("ASR").Range("WD" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("WD" & rowNum).Value
        If Worksheets("ASR").Range("WF" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("WF" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("WE" & rowNum).Value
    End If
    
    'If a Fee Type 4 Exists for Container 2'
    If Worksheets("ASR").Range("WG" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("WG" & rowNum).Value
        If Worksheets("ASR").Range("WI" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("WI" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("WH" & rowNum).Value
    End If
    
    'If a Fee Type 5 Exists for Container 2'
    If Worksheets("ASR").Range("WJ" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("WJ" & rowNum).Value
        If Worksheets("ASR").Range("WL" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("WL" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("WK" & rowNum).Value
    End If
End Sub

Public Sub InsertCont3Fees(rowNum As Integer)
'Billing Corrections Container 3'
'If theres an Environmental Fee for Container 3'
    If Worksheets("ASR").Range("XC" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = "Environmental Fee"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("XC" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("XD" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("XD" & rowNum).Value & "%"
        End If
    End If
    
    'If a Fee Type 1 Exists for Container 3'
    If Worksheets("ASR").Range("XE" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("XE" & rowNum).Value
        If Worksheets("ASR").Range("XG" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("XG" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("XF" & rowNum).Value
    End If
    
    'If a Fee Type 2 Exists for Container 3'
    If Worksheets("ASR").Range("XH" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("XH" & rowNum).Value
        If Worksheets("ASR").Range("XJ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("XJ" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("XI" & rowNum).Value
    End If
    
    'If a Fee Type 3 Exists for Container 3'
    If Worksheets("ASR").Range("XK" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("XK" & rowNum).Value
        If Worksheets("ASR").Range("XM" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("XM" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("XL" & rowNum).Value
    End If
    
    'If a Fee Type 4 Exists for Container 3'
    If Worksheets("ASR").Range("XN" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("XN" & rowNum).Value
        If Worksheets("ASR").Range("XP" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("XP" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("XO" & rowNum).Value
    End If
    
    'If a Fee Type 5 Exists for Container 3'
    If Worksheets("ASR").Range("XQ" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("XQ" & rowNum).Value
        If Worksheets("ASR").Range("XS" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("XS" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("XR" & rowNum).Value
    End If
End Sub

Public Sub InsertCont4Fees(rowNum As Integer)
'Billing Corrections Container 4'
'If theres an Environmental Fee for Container 4'
    If Worksheets("ASR").Range("YI" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = "Environmental Fee"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("YI" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("YJ" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("YJ" & rowNum).Value & "%"
        End If
    End If
    
    'If a Fee Type 1 Exists for Container 4'
    If Worksheets("ASR").Range("YL" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("YL" & rowNum).Value
        If Worksheets("ASR").Range("YN" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("YN" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("YM" & rowNum).Value
    End If
    
    'If a Fee Type 2 Exists for Container 4'
    If Worksheets("ASR").Range("YO" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("YO" & rowNum).Value
        If Worksheets("ASR").Range("YQ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("YQ" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("YP" & rowNum).Value
    End If
    
    'If a Fee Type 3 Exists for Container 4'
    If Worksheets("ASR").Range("YR" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("YR" & rowNum).Value
        If Worksheets("ASR").Range("YT" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("YT" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("YS" & rowNum).Value
    End If
    
    'If a Fee Type 4 Exists for Container 4'
    If Worksheets("ASR").Range("YU" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("YU" & rowNum).Value
        If Worksheets("ASR").Range("YW" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("YW" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("YV" & rowNum).Value
    End If
    
    'If a Fee Type 5 Exists for Container 4'
    If Worksheets("ASR").Range("YX" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("YX" & rowNum).Value
        If Worksheets("ASR").Range("YZ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("YZ" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("YY" & rowNum).Value
    End If
End Sub

Public Sub InsertCont5Fees(rowNum As Integer)
'Billing Corrections Container 5'
'If theres an Environmental Fee for Container 5'
    If Worksheets("ASR").Range("ZQ" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = "Environmental Fee"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ZQ" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("ZR" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ZR" & rowNum).Value & "%"
        End If
    End If
    
    'If a Fee Type 1 Exists for Container 5'
    If Worksheets("ASR").Range("ZS" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("ZS" & rowNum).Value
        If Worksheets("ASR").Range("ZU" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ZU" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ZT" & rowNum).Value
    End If
    
    'If a Fee Type 2 Exists for Container 5'
    If Worksheets("ASR").Range("ZV" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("ZV" & rowNum).Value
        If Worksheets("ASR").Range("ZX" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ZX" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ZW" & rowNum).Value
    End If
    
    'If a Fee Type 3 Exists for Container 5'
    If Worksheets("ASR").Range("ZY" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("ZY" & rowNum).Value
        If Worksheets("ASR").Range("AAA" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AAA" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ZZ" & rowNum).Value
    End If
    
    'If a Fee Type 4 Exists for Container 5'
    If Worksheets("ASR").Range("AAB" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AAB" & rowNum).Value
        If Worksheets("ASR").Range("AAD" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AAD" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AAC" & rowNum).Value
    End If
    
    'If a Fee Type 5 Exists for Container 5'
    If Worksheets("ASR").Range("AAE" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AAE" & rowNum).Value
        If Worksheets("ASR").Range("AAG" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AAG" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AAF" & rowNum).Value
    End If
End Sub

Public Sub InsertCont6Fees(rowNum As Integer)
'Billing Corrections Container 6'
'If theres an Environmental Fee for Container 6'
    If Worksheets("ASR").Range("AAX" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = "Environmental Fee"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AAX" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("AAY" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AAY" & rowNum).Value & "%"
        End If
    End If
    
    'If a Fee Type 1 Exists for Container 6'
    If Worksheets("ASR").Range("AAZ" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AAZ" & rowNum).Value
        If Worksheets("ASR").Range("ABB" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ABB" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ABA" & rowNum).Value
    End If
    
    'If a Fee Type 2 Exists for Container 6'
    If Worksheets("ASR").Range("ABC" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("ABC" & rowNum).Value
        If Worksheets("ASR").Range("ABE" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ABE" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ABD" & rowNum).Value
    End If
    
    'If a Fee Type 3 Exists for Container 6'
    If Worksheets("ASR").Range("ABF" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("ABF" & rowNum).Value
        If Worksheets("ASR").Range("ABH" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ABH" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ABG" & rowNum).Value
    End If
    
    'If a Fee Type 4 Exists for Container 6'
    If Worksheets("ASR").Range("ABI" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("ABI" & rowNum).Value
        If Worksheets("ASR").Range("ABK" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ABK" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ABJ" & rowNum).Value
    End If
    
    'If a Fee Type 5 Exists for Container 6'
    If Worksheets("ASR").Range("ABL" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("ABL" & rowNum).Value
        If Worksheets("ASR").Range("ABN" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ABN" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ABM" & rowNum).Value
    End If
End Sub

Public Sub InsertCont7Fees(rowNum As Integer)
'Billing Corrections Container 7'
'If theres an Environmental Fee for Container 7'
    If Worksheets("ASR").Range("ACJ" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = "Environmental Fee"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ACJ" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("ACK" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ACK" & rowNum).Value & "%"
        End If
    End If
    
    'If a Fee Type 1 Exists for Container 7'
    If Worksheets("ASR").Range("ACL" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("ACL" & rowNum).Value
        If Worksheets("ASR").Range("ACN" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ACN" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ACM" & rowNum).Value
    End If
    
    'If a Fee Type 2 Exists for Container 7'
    If Worksheets("ASR").Range("ACO" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("ACO" & rowNum).Value
        If Worksheets("ASR").Range("ACQ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ACQ" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ACP" & rowNum).Value
    End If
    
    'If a Fee Type 3 Exists for Container 7'
    If Worksheets("ASR").Range("ACR" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("ACR" & rowNum).Value
        If Worksheets("ASR").Range("ACT" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ACT" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ACS" & rowNum).Value
    End If
    
    'If a Fee Type 4 Exists for Container 7'
    If Worksheets("ASR").Range("ACU" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("ACU" & rowNum).Value
        If Worksheets("ASR").Range("ACW" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ACW" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ACV" & rowNum).Value
    End If
    
    'If a Fee Type 5 Exists for Container 7'
    If Worksheets("ASR").Range("ACX" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("ACX" & rowNum).Value
        If Worksheets("ASR").Range("ACZ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ACZ" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ACY" & rowNum).Value
    End If
End Sub

Public Sub InsertCont8Fees(rowNum As Integer)
'Billing Corrections Container 8'
'If theres an Environmental Fee for Container 8'
    If Worksheets("ASR").Range("ADV" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = "Environmental Fee"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ADV" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("ADW" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ADW" & rowNum).Value & "%"
        End If
    End If
    
    'If a Fee Type 1 Exists for Container 8'
    If Worksheets("ASR").Range("ADX" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("ADX" & rowNum).Value
        If Worksheets("ASR").Range("ADZ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ADZ" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ADY" & rowNum).Value
    End If
    
    'If a Fee Type 2 Exists for Container 8'
    If Worksheets("ASR").Range("AEA" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AEA" & rowNum).Value
        If Worksheets("ASR").Range("AEC" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AEC" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AEB" & rowNum).Value
    End If
    
    'If a Fee Type 3 Exists for Container 8'
    If Worksheets("ASR").Range("AED" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AED" & rowNum).Value
        If Worksheets("ASR").Range("AEF" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AEF" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AEE" & rowNum).Value
    End If
    
    'If a Fee Type 4 Exists for Container 8'
    If Worksheets("ASR").Range("AEG" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AEG" & rowNum).Value
        If Worksheets("ASR").Range("AEI" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AEI" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AEH" & rowNum).Value
    End If
    
    'If a Fee Type 5 Exists for Container 8'
    If Worksheets("ASR").Range("AEJ" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AEJ" & rowNum).Value
        If Worksheets("ASR").Range("AEL" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AEL" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AEK" & rowNum).Value
    End If
End Sub

Public Sub Cont1RateReducFees(rowNum As Integer)
'Rate Reduction Fees for Container 1'
'If theres an Environmental Fee for Container 1'
    If Worksheets("ASR").Range("AFH" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = "Environmental Fee"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AFH" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("AFI" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AFI" & rowNum).Value & "%"
        End If
    End If
    
    'If a Fee Type 1 Exists for Container 1'
    If Worksheets("ASR").Range("AFJ" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AFJ" & rowNum).Value
        If Worksheets("ASR").Range("AFL" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AFL" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AFK" & rowNum).Value
    End If
    
    'If a Fee Type 2 Exists for Container 1'
    If Worksheets("ASR").Range("AFM" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AFM" & rowNum).Value
        If Worksheets("ASR").Range("AFO" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AFO" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AFN" & rowNum).Value
    End If
    
    'If a Fee Type 3 Exists for Container 1'
    If Worksheets("ASR").Range("AFP" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AFP" & rowNum).Value
        If Worksheets("ASR").Range("AFR" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AFR" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AFQ" & rowNum).Value
    End If
    
    'If a Fee Type 4 Exists for Container 1'
    If Worksheets("ASR").Range("AFS" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AFS" & rowNum).Value
        If Worksheets("ASR").Range("AFU" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AFU" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AFT" & rowNum).Value
    End If
    
    'If a Fee Type 5 Exists for Container 1'
    If Worksheets("ASR").Range("AFV" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AFV" & rowNum).Value
        If Worksheets("ASR").Range("AFX" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AFX" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AFW" & rowNum).Value
    End If
End Sub

Public Sub Cont2RateReducFees(rowNum As Integer)
'Rate Reduction Fees for Container 2'
'If theres an Environmental Fee for Container 2'
    If Worksheets("ASR").Range("AGO" & rowNum).Value <> "" Then
            While ActiveCell.Value <> ""
                ActiveCell.Offset(1).Select
            Wend
            ActiveCell.Value = "Environmental Fee"
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AGO" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("AGP" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AGP" & rowNum).Value & "%"
        End If
    End If
        
    'If a Fee Type 1 Exists for Container 2'
    If Worksheets("ASR").Range("AGQ" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AGQ" & rowNum).Value
        If Worksheets("ASR").Range("AGS" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AGS" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AGR" & rowNum).Value
    End If
    
    'If a Fee Type 2 Exists for Container 2'
    If Worksheets("ASR").Range("AGT" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AGT" & rowNum).Value
        If Worksheets("ASR").Range("AGV" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AGV" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AGU" & rowNum).Value
    End If

    'If a Fee Type 3 Exists for Container 2'
    If Worksheets("ASR").Range("AGW" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AGW" & rowNum).Value
        If Worksheets("ASR").Range("AGY" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AGY" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AGX" & rowNum).Value
    End If
    
    'If a Fee Type 4 Exists for Container 2'
    If Worksheets("ASR").Range("AGZ" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AGZ" & rowNum).Value
        If Worksheets("ASR").Range("AGB" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AHB" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AHA" & rowNum).Value
    End If
    
    'If a Fee Type 5 Exists for Container 2'
    If Worksheets("ASR").Range("AHC" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AHC" & rowNum).Value
        If Worksheets("ASR").Range("AHE" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AHE" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AHD" & rowNum).Value
    End If
End Sub

Public Sub Cont3RateReducFees(rowNum As Integer)
'Rate Reduction Fees for Container 3'
'If theres an Environmental Fee for Container 3'
    If Worksheets("ASR").Range("AHV" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = "Environmental Fee"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AHV" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("AHW" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AHW" & rowNum).Value & "%"
        End If
    End If
        
    'If a Fee Type 1 Exists for Container 3'
    If Worksheets("ASR").Range("AHX" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AHX" & rowNum).Value
        If Worksheets("ASR").Range("AHZ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AHZ" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AHY" & rowNum).Value
    End If
    
    'If a Fee Type 2 Exists for Container 3'
    If Worksheets("ASR").Range("AIA" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AIA" & rowNum).Value
        If Worksheets("ASR").Range("AIC" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AIC" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AIB" & rowNum).Value
    End If
    
    'If a Fee Type 3 Exists for Container 3'
    If Worksheets("ASR").Range("AID" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AID" & rowNum).Value
        If Worksheets("ASR").Range("AIF" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AIF" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AIE" & rowNum).Value
    End If
    
    'If a Fee Type 4 Exists for Container 3'
    If Worksheets("ASR").Range("AIG" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AIG" & rowNum).Value
        If Worksheets("ASR").Range("AII" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AII" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AIH" & rowNum).Value
    End If
    
    'If a Fee Type 5 Exists for Container 3'
    If Worksheets("ASR").Range("AIJ" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AIJ" & rowNum).Value
        If Worksheets("ASR").Range("AIL" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AIL" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AIK" & rowNum).Value
    End If
End Sub

Public Sub Cont4RateReducFees(rowNum As Integer)
'Rate Reduction Fees for Container 4'
'If theres an Environmental Fee for Container 4'
    If Worksheets("ASR").Range("AJC" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = "Environmental Fee"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AJC" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("AJD" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AJD" & rowNum).Value & "%"
        End If
    End If
    
    'If a Fee Type 1 Exists for Container 4'
    If Worksheets("ASR").Range("AJE" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AJE" & rowNum).Value
        If Worksheets("ASR").Range("AJG" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AJG" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AJF" & rowNum).Value
    End If
    
    'If a Fee Type 2 Exists for Container 4'
    If Worksheets("ASR").Range("AJH" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AJH" & rowNum).Value
        If Worksheets("ASR").Range("AJJ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AJJ" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AJI" & rowNum).Value
    End If

    'If a Fee Type 3 Exists for Container 4'
    If Worksheets("ASR").Range("AJK" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AJK" & rowNum).Value
        If Worksheets("ASR").Range("AJM" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AJM" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AJL" & rowNum).Value
    End If
    
    'If a Fee Type 4 Exists for Container 4'
    If Worksheets("ASR").Range("AJN" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AJN" & rowNum).Value
        If Worksheets("ASR").Range("AJP" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AJP" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AJO" & rowNum).Value
    End If
    
    'If a Fee Type 5 Exists for Container 4'
    If Worksheets("ASR").Range("AJQ" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AJQ" & rowNum).Value
        If Worksheets("ASR").Range("AJS" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AJS" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AJR" & rowNum).Value
    End If
End Sub

Public Sub Cont5RateReducFees(rowNum As Integer)
    'Rate Reduction Fees for Container 5'
    'If theres an Environmental Fee for Container 5'
    If Worksheets("ASR").Range("AKJ" & rowNum).Value <> "" Then
            While ActiveCell.Value <> ""
                ActiveCell.Offset(1).Select
            Wend
            ActiveCell.Value = "Environmental Fee"
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AJK" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("AKK" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AKK" & rowNum).Value & "%"
        End If
    End If
    
    'If a Fee Type 1 Exists for Container 5'
    If Worksheets("ASR").Range("AKL" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AKL" & rowNum).Value
        If Worksheets("ASR").Range("AKN" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AKN" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AKM" & rowNum).Value
    End If
    
    'If a Fee Type 2 Exists for Container 5'
    If Worksheets("ASR").Range("AKO" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AKO" & rowNum).Value
        If Worksheets("ASR").Range("AKQ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AKQ" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AKP" & rowNum).Value
    End If

    'If a Fee Type 3 Exists for Container 5'
    If Worksheets("ASR").Range("AKR" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AKR" & rowNum).Value
        If Worksheets("ASR").Range("AKT" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AKT" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AKS" & rowNum).Value
    End If
    
    'If a Fee Type 4 Exists for Container 5'
    If Worksheets("ASR").Range("AKU" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AKU" & rowNum).Value
        If Worksheets("ASR").Range("AKW" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AKW" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AKV" & rowNum).Value
    End If
    
    'If a Fee Type 5 Exists for Container 5'
    If Worksheets("ASR").Range("AKX" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AKX" & rowNum).Value
        If Worksheets("ASR").Range("AKZ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AKZ" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AKY" & rowNum).Value
    End If
End Sub

Public Sub Cont6RateReducFees(rowNum As Integer)
    'Rate Reduction Fees for Container 5'
    'If theres an Environmental Fee for Container 6'
    If Worksheets("ASR").Range("ALQ" & rowNum).Value <> "" Then
            While ActiveCell.Value <> ""
                ActiveCell.Offset(1).Select
            Wend
            ActiveCell.Value = "Environmental Fee"
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ALQ" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("ALR" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ALR" & rowNum).Value & "%"
        End If
    End If
    
    'If a Fee Type 1 Exists for Container 6'
    If Worksheets("ASR").Range("ALS" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("ALS" & rowNum).Value
        If Worksheets("ASR").Range("ALU" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ALU" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ALT" & rowNum).Value
    End If
    
    'If a Fee Type 2 Exists for Container 6'
    If Worksheets("ASR").Range("ALV" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("ALV" & rowNum).Value
        If Worksheets("ASR").Range("ALX" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ALX" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ALW" & rowNum).Value
    End If

    'If a Fee Type 3 Exists for Container 6'
    If Worksheets("ASR").Range("ALY" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("ALY" & rowNum).Value
        If Worksheets("ASR").Range("AMA" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AMA" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ALZ" & rowNum).Value
    End If
    
    'If a Fee Type 4 Exists for Container 6'
    If Worksheets("ASR").Range("AMB" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AMB" & rowNum).Value
        If Worksheets("ASR").Range("AMD" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AMD" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AMC" & rowNum).Value
    End If
    
    'If a Fee Type 5 Exists for Container 6'
    If Worksheets("ASR").Range("AME" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AME" & rowNum).Value
        If Worksheets("ASR").Range("AMG" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AMG" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AMF" & rowNum).Value
    End If
End Sub

Public Sub Cont7RateReducFees(rowNum As Integer)
    'Rate Reduction Fees for Container 7'
    'If theres an Environmental Fee for Container 7'
    If Worksheets("ASR").Range("ANC" & rowNum).Value <> "" Then
            While ActiveCell.Value <> ""
                ActiveCell.Offset(1).Select
            Wend
            ActiveCell.Value = "Environmental Fee"
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ANC" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("AND" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AND" & rowNum).Value & "%"
        End If
    End If
    
    'If a Fee Type 1 Exists for Container 7'
    If Worksheets("ASR").Range("ANE" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("ANE" & rowNum).Value
        If Worksheets("ASR").Range("ANG" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ANG" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ANF" & rowNum).Value
    End If
    
    'If a Fee Type 2 Exists for Container 7'
    If Worksheets("ASR").Range("ANH" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("ANH" & rowNum).Value
        If Worksheets("ASR").Range("ANJ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ANJ" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ANI" & rowNum).Value
    End If

    'If a Fee Type 3 Exists for Container 7'
    If Worksheets("ASR").Range("ANK" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("ANK" & rowNum).Value
        If Worksheets("ASR").Range("ANM" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ANM" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ANL" & rowNum).Value
    End If
    
    'If a Fee Type 4 Exists for Container 7'
    If Worksheets("ASR").Range("AMN" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("ANN" & rowNum).Value
        If Worksheets("ASR").Range("ANP" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ANP" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ANO" & rowNum).Value
    End If
    
    'If a Fee Type 5 Exists for Container 7'
    If Worksheets("ASR").Range("ANQ" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("ANQ" & rowNum).Value
        If Worksheets("ASR").Range("ANS" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ANS" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ANR" & rowNum).Value
    End If
End Sub

Public Sub Cont8RateReducFees(rowNum As Integer)
    'Rate Reduction Fees for Container 8'
    'If theres an Environmental Fee for Container 8'
    If Worksheets("ASR").Range("AOO" & rowNum).Value <> "" Then
            While ActiveCell.Value <> ""
                ActiveCell.Offset(1).Select
            Wend
            ActiveCell.Value = "Environmental Fee"
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AOO" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("AOP" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AOP" & rowNum).Value & "%"
        End If
    End If
    
    'If a Fee Type 1 Exists for Container 8'
    If Worksheets("ASR").Range("AOQ" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AOQ" & rowNum).Value
        If Worksheets("ASR").Range("AOS" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AOS" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AOR" & rowNum).Value
    End If
    
    'If a Fee Type 2 Exists for Container 8'
    If Worksheets("ASR").Range("AOT" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AOT" & rowNum).Value
        If Worksheets("ASR").Range("AOV" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AOV" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AOU" & rowNum).Value
    End If

    'If a Fee Type 3 Exists for Container 8'
    If Worksheets("ASR").Range("AOW" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AOW" & rowNum).Value
        If Worksheets("ASR").Range("AOY" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AOY" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AOX" & rowNum).Value
    End If
    
    'If a Fee Type 4 Exists for Container 8'
    If Worksheets("ASR").Range("AOZ" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AOZ" & rowNum).Value
        If Worksheets("ASR").Range("APB" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("APB" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("APA" & rowNum).Value
    End If
    
    'If a Fee Type 5 Exists for Container 8'
    If Worksheets("ASR").Range("APC" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("APC" & rowNum).Value
        If Worksheets("ASR").Range("APE" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("APE" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("APD" & rowNum).Value
    End If
End Sub

Public Sub Cont1VendorSwitchFees(rowNum As Integer)
    'Vendor Switch Fees for Container 1'
    'If theres an Environmental Fee for Container 1'
    If Worksheets("ASR").Range("AQA" & rowNum).Value <> "" Then
            While ActiveCell.Value <> ""
                ActiveCell.Offset(1).Select
            Wend
            ActiveCell.Value = "Environmental Fee"
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AQA" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("AQB" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AQB" & rowNum).Value & "%"
        End If
    End If
    
    'If a Fee Type 1 Exists for Container 1'
    If Worksheets("ASR").Range("AQC" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AQC" & rowNum).Value
        If Worksheets("ASR").Range("AQE" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AQE" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AQD" & rowNum).Value
    End If
    
    'If a Fee Type 2 Exists for Container 1'
    If Worksheets("ASR").Range("AQF" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AQF" & rowNum).Value
        If Worksheets("ASR").Range("AQH" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AQH" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AQG" & rowNum).Value
    End If

    'If a Fee Type 3 Exists for Container 1'
    If Worksheets("ASR").Range("AQI" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("ANK" & rowNum).Value
        If Worksheets("ASR").Range("AQJ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AQJ" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AQI" & rowNum).Value
    End If
    
    'If a Fee Type 4 Exists for Container 1'
    If Worksheets("ASR").Range("AQL" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AQL" & rowNum).Value
        If Worksheets("ASR").Range("AQN" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AQN" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AQM" & rowNum).Value
    End If
    
    'If a Fee Type 5 Exists for Container 1'
    If Worksheets("ASR").Range("AQO" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AQO" & rowNum).Value
        If Worksheets("ASR").Range("AQQ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AQQ" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AQP" & rowNum).Value
    End If
End Sub

Public Sub Cont2VendorSwitchFees(rowNum As Integer)
    'Vendor Switch Fees for Container 2'
    'If theres an Environmental Fee for Container 2'
    If Worksheets("ASR").Range("ARH" & rowNum).Value <> "" Then
            While ActiveCell.Value <> ""
                ActiveCell.Offset(1).Select
            Wend
            ActiveCell.Value = "Environmental Fee"
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ARH" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("ARI" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ARI" & rowNum).Value & "%"
        End If
    End If
    
    'If a Fee Type 1 Exists for Container 2'
    If Worksheets("ASR").Range("ARJ" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("ARJ" & rowNum).Value
        If Worksheets("ASR").Range("ARL" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ARL" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ARK" & rowNum).Value
    End If
    
    'If a Fee Type 2 Exists for Container 2'
    If Worksheets("ASR").Range("ARM" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("ARM" & rowNum).Value
        If Worksheets("ASR").Range("ARO" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ARO" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ARN" & rowNum).Value
    End If

    'If a Fee Type 3 Exists for Container 2'
    If Worksheets("ASR").Range("ARP" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("ARP" & rowNum).Value
        If Worksheets("ASR").Range("ARR" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ARR" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ARQ" & rowNum).Value
    End If
    
    'If a Fee Type 4 Exists for Container 2'
    If Worksheets("ASR").Range("ARS" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("ARS" & rowNum).Value
        If Worksheets("ASR").Range("ARU" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ARU" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ART" & rowNum).Value
    End If
    
    'If a Fee Type 5 Exists for Container 2'
    If Worksheets("ASR").Range("ARV" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("ARV" & rowNum).Value
        If Worksheets("ASR").Range("ARX" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ARX" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ARW" & rowNum).Value
    End If
End Sub

Public Sub Cont3VendorSwitchFees(rowNum As Integer)
    'Vendor Switch Fees for Container 3'
    'If theres an Environmental Fee for Container 3'
    If Worksheets("ASR").Range("ASO" & rowNum).Value <> "" Then
            While ActiveCell.Value <> ""
                ActiveCell.Offset(1).Select
            Wend
            ActiveCell.Value = "Environmental Fee"
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ASO" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("ASP" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ASP" & rowNum).Value & "%"
        End If
    End If
    
    'If a Fee Type 1 Exists for Container 3'
    If Worksheets("ASR").Range("ASQ" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("ASQ" & rowNum).Value
        If Worksheets("ASR").Range("ASS" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ASS" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ASR" & rowNum).Value
    End If
    
    'If a Fee Type 2 Exists for Container 3'
    If Worksheets("ASR").Range("AST" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AST" & rowNum).Value
        If Worksheets("ASR").Range("ASV" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ASV" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ASU" & rowNum).Value
    End If

    'If a Fee Type 3 Exists for Container 3'
    If Worksheets("ASR").Range("ASW" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("ASW" & rowNum).Value
        If Worksheets("ASR").Range("ASY" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ASY" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ASX" & rowNum).Value
    End If
    
    'If a Fee Type 4 Exists for Container 3'
    If Worksheets("ASR").Range("ASZ" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("ASZ" & rowNum).Value
        If Worksheets("ASR").Range("ATB" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ATB" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ATA" & rowNum).Value
    End If
    
    'If a Fee Type 5 Exists for Container 3'
    If Worksheets("ASR").Range("ATC" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("ATC" & rowNum).Value
        If Worksheets("ASR").Range("ATE" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ATE" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ATD" & rowNum).Value
    End If
End Sub

Public Sub Cont4VendorSwitchFees(rowNum As Integer)
    'Vendor Switch Fees for Container 4'
    'If theres an Environmental Fee for Container 4'
    If Worksheets("ASR").Range("ATV" & rowNum).Value <> "" Then
            While ActiveCell.Value <> ""
                ActiveCell.Offset(1).Select
            Wend
            ActiveCell.Value = "Environmental Fee"
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ATV" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("ATW" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ATW" & rowNum).Value & "%"
        End If
    End If
    
    'If a Fee Type 1 Exists for Container 4'
    If Worksheets("ASR").Range("ATX" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("ATX" & rowNum).Value
        If Worksheets("ASR").Range("ATZ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("ATZ" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("ATY" & rowNum).Value
    End If
    
    'If a Fee Type 2 Exists for Container 4'
    If Worksheets("ASR").Range("AUA" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AUA" & rowNum).Value
        If Worksheets("ASR").Range("AUC" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AUC" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AUB" & rowNum).Value
    End If

    'If a Fee Type 3 Exists for Container 4'
    If Worksheets("ASR").Range("AUD" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AUD" & rowNum).Value
        If Worksheets("ASR").Range("AUF" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AUF" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AUE" & rowNum).Value
    End If
    
    'If a Fee Type 4 Exists for Container 4'
    If Worksheets("ASR").Range("AUG" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AUG" & rowNum).Value
        If Worksheets("ASR").Range("AUI" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AUI" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AUH" & rowNum).Value
    End If
    
    'If a Fee Type 5 Exists for Container 4'
    If Worksheets("ASR").Range("AUJ" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AUJ" & rowNum).Value
        If Worksheets("ASR").Range("AUL" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AUL" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AUK" & rowNum).Value
    End If
End Sub


Public Sub Cont5VendorSwitchFees(rowNum As Integer)
    'Vendor Switch Fees for Container 5'
    'If theres an Environmental Fee for Container 5'
    If Worksheets("ASR").Range("AVC" & rowNum).Value <> "" Then
            While ActiveCell.Value <> ""
                ActiveCell.Offset(1).Select
            Wend
            ActiveCell.Value = "Environmental Fee"
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AVC" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("AVD" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AVD" & rowNum).Value & "%"
        End If
    End If
    
    'If a Fee Type 1 Exists for Container 5'
    If Worksheets("ASR").Range("AVE" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AVE" & rowNum).Value
        If Worksheets("ASR").Range("AVG" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AVG" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AVF" & rowNum).Value
    End If
    
    'If a Fee Type 2 Exists for Container 5'
    If Worksheets("ASR").Range("AVH" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AVH" & rowNum).Value
        If Worksheets("ASR").Range("AVJ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AVJ" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AVI" & rowNum).Value
    End If

    'If a Fee Type 3 Exists for Container 5'
    If Worksheets("ASR").Range("AVK" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AVK" & rowNum).Value
        If Worksheets("ASR").Range("AVM" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AVM" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AVL" & rowNum).Value
    End If
    
    'If a Fee Type 4 Exists for Container 5'
    If Worksheets("ASR").Range("AVN" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AVN" & rowNum).Value
        If Worksheets("ASR").Range("AVP" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AVP" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AVO" & rowNum).Value
    End If
    
    'If a Fee Type 5 Exists for Container 5'
    If Worksheets("ASR").Range("AVQ" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AVQ" & rowNum).Value
        If Worksheets("ASR").Range("AVS" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AVS" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AVR" & rowNum).Value
    End If
End Sub


Public Sub Cont6VendorSwitchFees(rowNum As Integer)
    'Vendor Switch Fees for Container 6'
    'If theres an Environmental Fee for Container 6'
    If Worksheets("ASR").Range("AWJ" & rowNum).Value <> "" Then
            While ActiveCell.Value <> ""
                ActiveCell.Offset(1).Select
            Wend
            ActiveCell.Value = "Environmental Fee"
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AWJ" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("AWK" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AWK" & rowNum).Value & "%"
        End If
    End If
    
    'If a Fee Type 1 Exists for Container 6'
    If Worksheets("ASR").Range("AWL" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AWL" & rowNum).Value
        If Worksheets("ASR").Range("AWN" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AWN" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AWM" & rowNum).Value
    End If
    
    'If a Fee Type 2 Exists for Container 6'
    If Worksheets("ASR").Range("AWO" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AWO" & rowNum).Value
        If Worksheets("ASR").Range("AWQ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AWQ" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AWP" & rowNum).Value
    End If

    'If a Fee Type 3 Exists for Container 6'
    If Worksheets("ASR").Range("AWR" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AWR" & rowNum).Value
        If Worksheets("ASR").Range("AWT" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AWT" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AWS" & rowNum).Value
    End If
    
    'If a Fee Type 4 Exists for Container 6'
    If Worksheets("ASR").Range("AWU" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AWU" & rowNum).Value
        If Worksheets("ASR").Range("AWV" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AWV" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AWU" & rowNum).Value
    End If
    
    'If a Fee Type 5 Exists for Container 6'
    If Worksheets("ASR").Range("AWX" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AWX" & rowNum).Value
        If Worksheets("ASR").Range("AWZ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AWZ" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AWY" & rowNum).Value
    End If
End Sub


Public Sub Cont7VendorSwitchFees(rowNum As Integer)
    'Vendor Switch Fees for Container 7'
    'If theres an Environmental Fee for Container 7'
    If Worksheets("ASR").Range("AXV" & rowNum).Value <> "" Then
            While ActiveCell.Value <> ""
                ActiveCell.Offset(1).Select
            Wend
            ActiveCell.Value = "Environmental Fee"
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AXV" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("AXW" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AXW" & rowNum).Value & "%"
        End If
    End If
    
    'If a Fee Type 1 Exists for Container 7'
    If Worksheets("ASR").Range("AXX" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AXX" & rowNum).Value
        If Worksheets("ASR").Range("AXZ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AXZ" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AXY" & rowNum).Value
    End If
    
    'If a Fee Type 2 Exists for Container 7'
    If Worksheets("ASR").Range("AYA" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AYA" & rowNum).Value
        If Worksheets("ASR").Range("AYC" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AYC" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AYB" & rowNum).Value
    End If

    'If a Fee Type 3 Exists for Container 7'
    If Worksheets("ASR").Range("AYD" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AYD" & rowNum).Value
        If Worksheets("ASR").Range("AYF" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AYF" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AYE" & rowNum).Value
    End If
    
    'If a Fee Type 4 Exists for Container 7'
    If Worksheets("ASR").Range("AYG" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AYG" & rowNum).Value
        If Worksheets("ASR").Range("AYI" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AUY" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AYH" & rowNum).Value
    End If
    
    'If a Fee Type 5 Exists for Container 7'
    If Worksheets("ASR").Range("AYJ" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AYJ" & rowNum).Value
        If Worksheets("ASR").Range("AYL" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AYL" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AYK" & rowNum).Value
    End If
End Sub

Public Sub Cont8VendorSwitchFees(rowNum As Integer)
    'Vendor Switch Fees for Container 8'
    'If theres an Environmental Fee for Container 8'
    If Worksheets("ASR").Range("AZH" & rowNum).Value <> "" Then
            While ActiveCell.Value <> ""
                ActiveCell.Offset(1).Select
            Wend
            ActiveCell.Value = "Environmental Fee"
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AZH" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("AZI" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AZJ" & rowNum).Value & "%"
        End If
    End If
    
    'If a Fee Type 1 Exists for Container 8'
    If Worksheets("ASR").Range("AZK" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AZK" & rowNum).Value
        If Worksheets("ASR").Range("AZM" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AZM" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AZL" & rowNum).Value
    End If
    
    'If a Fee Type 2 Exists for Container 8'
    If Worksheets("ASR").Range("AZN" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AZN" & rowNum).Value
        If Worksheets("ASR").Range("AZP" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AZP" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AZO" & rowNum).Value
    End If

    'If a Fee Type 3 Exists for Container 8'
    If Worksheets("ASR").Range("AZQ" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AZQ" & rowNum).Value
        If Worksheets("ASR").Range("AZS" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AZS" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AZR" & rowNum).Value
    End If
    
    'If a Fee Type 4 Exists for Container 8'
    If Worksheets("ASR").Range("AZT" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AZT" & rowNum).Value
        If Worksheets("ASR").Range("AZV" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AZV" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AZU" & rowNum).Value
    End If
    
    'If a Fee Type 5 Exists for Container 8'
    If Worksheets("ASR").Range("AZV" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("AZV" & rowNum).Value
        If Worksheets("ASR").Range("AZX" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("AZX" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("AZW" & rowNum).Value
    End If
End Sub

Public Sub Cont1ServiceStandFees(rowNum As Integer)
    'Service Standardization Fees for Container 1'
    'If theres an Environmental Fee for Container 1'
    If Worksheets("ASR").Range("BAT" & rowNum).Value <> "" Then
            While ActiveCell.Value <> ""
                ActiveCell.Offset(1).Select
            Wend
            ActiveCell.Value = "Environmental Fee"
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BAT" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("BAU" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BAU" & rowNum).Value & "%"
        End If
    End If
    
    'If a Fee Type 1 Exists for Container 1
    If Worksheets("ASR").Range("BAV" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BAV" & rowNum).Value
        If Worksheets("ASR").Range("BAX" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BAX" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BAW" & rowNum).Value
    End If
    
    'If a Fee Type 2 Exists for Container 1'
    If Worksheets("ASR").Range("BAY" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BAY" & rowNum).Value
        If Worksheets("ASR").Range("BBA" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BBA" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BAZ" & rowNum).Value
    End If

    'If a Fee Type 3 Exists for Container 1'
    If Worksheets("ASR").Range("BBB" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BBB" & rowNum).Value
        If Worksheets("ASR").Range("BBD" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BBD" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BBC" & rowNum).Value
    End If
    
    'If a Fee Type 4 Exists for Container 1'
    If Worksheets("ASR").Range("BBE" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BBE" & rowNum).Value
        If Worksheets("ASR").Range("BBG" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BBG" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BBF" & rowNum).Value
    End If
    
    'If a Fee Type 5 Exists for Container 1'
    If Worksheets("ASR").Range("BBH" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BBH" & rowNum).Value
        If Worksheets("ASR").Range("BBJ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BBJ" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BBI" & rowNum).Value
    End If
End Sub

Public Sub Cont2ServiceStandFees(rowNum As Integer)
    'Service Standardization Fees for Container 2'
    'If theres an Environmental Fee for Container 2'
    If Worksheets("ASR").Range("BCA" & rowNum).Value <> "" Then
            While ActiveCell.Value <> ""
                ActiveCell.Offset(1).Select
            Wend
            ActiveCell.Value = "Environmental Fee"
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BCA" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("BCB" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BCB" & rowNum).Value & "%"
        End If
    End If
    
    'If a Fee Type 1 Exists for Container 2
    If Worksheets("ASR").Range("BCC" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BCC" & rowNum).Value
        If Worksheets("ASR").Range("BCE" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BCE" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BCD" & rowNum).Value
    End If
    
    'If a Fee Type 2 Exists for Container 2'
    If Worksheets("ASR").Range("BCF" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BCF" & rowNum).Value
        If Worksheets("ASR").Range("BCH" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BCH" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BCG" & rowNum).Value
    End If

    'If a Fee Type 3 Exists for Container 2'
    If Worksheets("ASR").Range("BCI" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BCI" & rowNum).Value
        If Worksheets("ASR").Range("BCK" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BCK" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BCJ" & rowNum).Value
    End If
    
    'If a Fee Type 4 Exists for Container 2'
    If Worksheets("ASR").Range("BCL" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BCL" & rowNum).Value
        If Worksheets("ASR").Range("BCN" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BCN" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BCM" & rowNum).Value
    End If
    
    'If a Fee Type 5 Exists for Container 2'
    If Worksheets("ASR").Range("BCO" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BCO" & rowNum).Value
        If Worksheets("ASR").Range("BCQ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BCQ" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BCP" & rowNum).Value
    End If
End Sub

Public Sub Cont3ServiceStandFees(rowNum As Integer)
    'Service Standardization Fees for Container 3'
    'If theres an Environmental Fee for Container 3'
    If Worksheets("ASR").Range("BDH" & rowNum).Value <> "" Then
            While ActiveCell.Value <> ""
                ActiveCell.Offset(1).Select
            Wend
            ActiveCell.Value = "Environmental Fee"
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BDH" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("BDI" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BDI" & rowNum).Value & "%"
        End If
    End If
    
    'If a Fee Type 1 Exists for Container 3
    If Worksheets("ASR").Range("BDJ" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BDJ" & rowNum).Value
        If Worksheets("ASR").Range("BDL" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BDL" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BDK" & rowNum).Value
    End If
    
    'If a Fee Type 2 Exists for Container 3'
    If Worksheets("ASR").Range("BDM" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BDM" & rowNum).Value
        If Worksheets("ASR").Range("BDO" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BDO" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BDN" & rowNum).Value
    End If

    'If a Fee Type 3 Exists for Container 3'
    If Worksheets("ASR").Range("BDP" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BDP" & rowNum).Value
        If Worksheets("ASR").Range("BDR" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BDR" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BDQ" & rowNum).Value
    End If
    
    'If a Fee Type 4 Exists for Container 3'
    If Worksheets("ASR").Range("BDS" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BDS" & rowNum).Value
        If Worksheets("ASR").Range("BDU" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BDU" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BDT" & rowNum).Value
    End If
    
    'If a Fee Type 5 Exists for Container 3'
    If Worksheets("ASR").Range("BDV" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BDV" & rowNum).Value
        If Worksheets("ASR").Range("BDX" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BDX" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BDW" & rowNum).Value
    End If
End Sub

Public Sub Cont4ServiceStandFees(rowNum As Integer)
    'Service Standardization Fees for Container 4'
    'If theres an Environmental Fee for Container 4'
    If Worksheets("ASR").Range("BEO" & rowNum).Value <> "" Then
            While ActiveCell.Value <> ""
                ActiveCell.Offset(1).Select
            Wend
            ActiveCell.Value = "Environmental Fee"
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BEO" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("BEP" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BEP" & rowNum).Value & "%"
        End If
    End If
    
    'If a Fee Type 1 Exists for Container 4
    If Worksheets("ASR").Range("BEQ" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BEQ" & rowNum).Value
        If Worksheets("ASR").Range("BES" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BES" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BER" & rowNum).Value
    End If
    
    'If a Fee Type 2 Exists for Container 4'
    If Worksheets("ASR").Range("BET" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BET" & rowNum).Value
        If Worksheets("ASR").Range("BEV" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BEV" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BEU" & rowNum).Value
    End If

    'If a Fee Type 3 Exists for Container 4'
    If Worksheets("ASR").Range("BEW" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BEW" & rowNum).Value
        If Worksheets("ASR").Range("BEY" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BEY" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BEX" & rowNum).Value
    End If
    
    'If a Fee Type 4 Exists for Container 4'
    If Worksheets("ASR").Range("BEZ" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BEZ" & rowNum).Value
        If Worksheets("ASR").Range("BFB" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BFB" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BFA" & rowNum).Value
    End If
    
    'If a Fee Type 5 Exists for Container 4'
    If Worksheets("ASR").Range("BFC" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BFC" & rowNum).Value
        If Worksheets("ASR").Range("BFE" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BFE" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BFD" & rowNum).Value
    End If
End Sub

Public Sub Cont5ServiceStandFees(rowNum As Integer)
    'Service Standardization Fees for Container 5'
    'If theres an Environmental Fee for Container 5'
    If Worksheets("ASR").Range("BFV" & rowNum).Value <> "" Then
            While ActiveCell.Value <> ""
                ActiveCell.Offset(1).Select
            Wend
            ActiveCell.Value = "Environmental Fee"
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BFV" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("BFW" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BFW" & rowNum).Value & "%"
        End If
    End If
    
    'If a Fee Type 1 Exists for Container 5
    If Worksheets("ASR").Range("BFX" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BFX" & rowNum).Value
        If Worksheets("ASR").Range("BFZ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BFZ" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BFY" & rowNum).Value
    End If
    
    'If a Fee Type 2 Exists for Container 5'
    If Worksheets("ASR").Range("BGA" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BGA" & rowNum).Value
        If Worksheets("ASR").Range("BGC" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BGC" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BGB" & rowNum).Value
    End If

    'If a Fee Type 3 Exists for Container 5'
    If Worksheets("ASR").Range("BGD" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BGD" & rowNum).Value
        If Worksheets("ASR").Range("BGF" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BGF" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BGE" & rowNum).Value
    End If
    
    'If a Fee Type 4 Exists for Container 5'
    If Worksheets("ASR").Range("BGG" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BGG" & rowNum).Value
        If Worksheets("ASR").Range("BGI" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BGI" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BGH" & rowNum).Value
    End If
    
    'If a Fee Type 5 Exists for Container 5'
    If Worksheets("ASR").Range("BGJ" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BGJ" & rowNum).Value
        If Worksheets("ASR").Range("BGL" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BGL" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BGK" & rowNum).Value
    End If
End Sub


Public Sub Cont6ServiceStandFees(rowNum As Integer)
    'Service Standardization Fees for Container 6'
    'If theres an Environmental Fee for Container 6'
    If Worksheets("ASR").Range("BHC" & rowNum).Value <> "" Then
            While ActiveCell.Value <> ""
                ActiveCell.Offset(1).Select
            Wend
            ActiveCell.Value = "Environmental Fee"
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BHC" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("BHD" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BHD" & rowNum).Value & "%"
        End If
    End If
    
    'If a Fee Type 1 Exists for Container 6
    If Worksheets("ASR").Range("BHE" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BHE" & rowNum).Value
        If Worksheets("ASR").Range("BHG" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BHG" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BHF" & rowNum).Value
    End If
    
    'If a Fee Type 2 Exists for Container 6'
    If Worksheets("ASR").Range("BHH" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BHH" & rowNum).Value
        If Worksheets("ASR").Range("BHJ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BHJ" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BHI" & rowNum).Value
    End If

    'If a Fee Type 3 Exists for Container 6'
    If Worksheets("ASR").Range("BHK" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BHK" & rowNum).Value
        If Worksheets("ASR").Range("BHM" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BHM" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BHL" & rowNum).Value
    End If
    
    'If a Fee Type 4 Exists for Container 6'
    If Worksheets("ASR").Range("BHN" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BHN" & rowNum).Value
        If Worksheets("ASR").Range("BHP" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BHP" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BHO" & rowNum).Value
    End If
    
    'If a Fee Type 5 Exists for Container 6'
    If Worksheets("ASR").Range("BHQ" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BHQ" & rowNum).Value
        If Worksheets("ASR").Range("BHS" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BHS" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BHR" & rowNum).Value
    End If
End Sub

Public Sub Cont7ServiceStandFees(rowNum As Integer)
    'Service Standardization Fees for Container 7'
    'If theres an Environmental Fee for Container 7'
    If Worksheets("ASR").Range("BIO" & rowNum).Value <> "" Then
            While ActiveCell.Value <> ""
                ActiveCell.Offset(1).Select
            Wend
            ActiveCell.Value = "Environmental Fee"
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BIO" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("BIP" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BIP" & rowNum).Value & "%"
        End If
    End If
    
    'If a Fee Type 1 Exists for Container 7
    If Worksheets("ASR").Range("BIQ" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BIQ" & rowNum).Value
        If Worksheets("ASR").Range("BIS" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BIS" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BIR" & rowNum).Value
    End If
    
    'If a Fee Type 2 Exists for Container 7'
    If Worksheets("ASR").Range("BIT" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BIT" & rowNum).Value
        If Worksheets("ASR").Range("BIV" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BIV" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BIU" & rowNum).Value
    End If

    'If a Fee Type 3 Exists for Container 7'
    If Worksheets("ASR").Range("BIW" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BIW" & rowNum).Value
        If Worksheets("ASR").Range("BIY" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BIY" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BIX" & rowNum).Value
    End If
    
    'If a Fee Type 4 Exists for Container 7'
    If Worksheets("ASR").Range("BIZ" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BIZ" & rowNum).Value
        If Worksheets("ASR").Range("BJB" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BJB" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BJA" & rowNum).Value
    End If
    
    'If a Fee Type 5 Exists for Container 7'
    If Worksheets("ASR").Range("BJC" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BJC" & rowNum).Value
        If Worksheets("ASR").Range("BJE" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BJE" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BJD" & rowNum).Value
    End If
End Sub

Public Sub Cont8ServiceStandFees(rowNum As Integer)
    'Service Standardization Fees for Container 8'
    'If theres an Environmental Fee for Container 8'
    If Worksheets("ASR").Range("BKA" & rowNum).Value <> "" Then
            While ActiveCell.Value <> ""
                ActiveCell.Offset(1).Select
            Wend
            ActiveCell.Value = "Environmental Fee"
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BKA" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("BKB" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BKB" & rowNum).Value & "%"
        End If
    End If
    
    'If a Fee Type 1 Exists for Container 8
    If Worksheets("ASR").Range("BKC" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BKC" & rowNum).Value
        If Worksheets("ASR").Range("BKE" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BKE" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BKD" & rowNum).Value
    End If
    
    'If a Fee Type 2 Exists for Container 8'
    If Worksheets("ASR").Range("BKF" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BKF" & rowNum).Value
        If Worksheets("ASR").Range("BKH" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BKH" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BKG" & rowNum).Value
    End If

    'If a Fee Type 3 Exists for Container 8'
    If Worksheets("ASR").Range("BKI" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BKI" & rowNum).Value
        If Worksheets("ASR").Range("BKK" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BKK" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BKJ" & rowNum).Value
    End If
    
    'If a Fee Type 4 Exists for Container 8'
    If Worksheets("ASR").Range("BKL" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BKL" & rowNum).Value
        If Worksheets("ASR").Range("BKN" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BKN" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BKM" & rowNum).Value
    End If
    
    'If a Fee Type 5 Exists for Container 8'
    If Worksheets("ASR").Range("BKO" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BKO" & rowNum).Value
        If Worksheets("ASR").Range("BKQ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BKQ" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BKP" & rowNum).Value
    End If
End Sub

Public Sub Cont1ImpFees(rowNum As Integer)

    Set returnRange = ActiveCell
    'Implemented Fees for Container 1'
    'If theres an Environmental Fee for Container 1'
    If Worksheets("ASR").Range("BVS" & rowNum).Value <> "" Then
            While ActiveCell.Value <> ""
                ActiveCell.Offset(1).Select
            Wend
            ActiveCell.Value = "Environmental Fee"
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BVS" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("BVT" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BVT" & rowNum).Value & "%"
        End If
        Call ImpSavings(1, rowNum)
        returnRange.Select
    End If
    
    'If a Fee Type 1 Exists for Container 1
    If Worksheets("ASR").Range("BVU" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BVU" & rowNum).Value
        If Worksheets("ASR").Range("BVW" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BVW" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BVV" & rowNum).Value
        Call ImpSavings(1, rowNum)
        returnRange.Select
    End If
    
    'If a Fee Type 2 Exists for Container 1'
    If Worksheets("ASR").Range("BVX" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BVX" & rowNum).Value
        If Worksheets("ASR").Range("BVZ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BVZ" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BVY" & rowNum).Value
        Call ImpSavings(1, rowNum)
        returnRange.Select
    End If

    'If a Fee Type 3 Exists for Container 1'
    If Worksheets("ASR").Range("BWA" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BWA" & rowNum).Value
        If Worksheets("ASR").Range("BWC" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BWC" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BWB" & rowNum).Value
        Call ImpSavings(1, rowNum)
        returnRange.Select
    End If
    
    'If a Fee Type 4 Exists for Container 1'
    If Worksheets("ASR").Range("BWD" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BWD" & rowNum).Value
        If Worksheets("ASR").Range("BWF" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BWF" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BWE" & rowNum).Value
        Call ImpSavings(1, rowNum)
        returnRange.Select
    End If
    
    'If a Fee Type 5 Exists for Container 1'
    If Worksheets("ASR").Range("BWG" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BWG" & rowNum).Value
        If Worksheets("ASR").Range("BWI" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BWI" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BWH" & rowNum).Value
        Call ImpSavings(1, rowNum)
        returnRange.Select
    End If
End Sub

Public Sub Cont2ImpFees(rowNum As Integer)

    Set returnRange = ActiveCell
    'Implemented Fees for Container 2'
    'If theres an Environmental Fee for Container 2'
    If Worksheets("ASR").Range("BXT" & rowNum).Value <> "" Then
            While ActiveCell.Value <> ""
                ActiveCell.Offset(1).Select
            Wend
            ActiveCell.Value = "Environmental Fee"
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BXT" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("BXU" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BXU" & rowNum).Value & "%"
        End If
        Call ImpSavings(2, rowNum)
        returnRange.Select
    End If
    
    'If a Fee Type 1 Exists for Container 2
    If Worksheets("ASR").Range("BXV" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BXV" & rowNum).Value
        If Worksheets("ASR").Range("BXX" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BXX" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BXW" & rowNum).Value
        Call ImpSavings(2, rowNum)
        returnRange.Select
    End If
    
    'If a Fee Type 2 Exists for Container 2'
    If Worksheets("ASR").Range("BXY" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BXY" & rowNum).Value
        If Worksheets("ASR").Range("BYA" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BYA" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BXZ" & rowNum).Value
        Call ImpSavings(2, rowNum)
        returnRange.Select
    End If

    'If a Fee Type 3 Exists for Container 2'
    If Worksheets("ASR").Range("BYB" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BYB" & rowNum).Value
        If Worksheets("ASR").Range("BYD" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BYD" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BYC" & rowNum).Value
        Call ImpSavings(2, rowNum)
        returnRange.Select
    End If
    
    'If a Fee Type 4 Exists for Container 2'
    If Worksheets("ASR").Range("BYE" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BYE" & rowNum).Value
        If Worksheets("ASR").Range("BYG" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BYG" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BYF" & rowNum).Value
        Call ImpSavings(2, rowNum)
        returnRange.Select
    End If
    
    'If a Fee Type 5 Exists for Container 2'
    If Worksheets("ASR").Range("BYH" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BYH" & rowNum).Value
        If Worksheets("ASR").Range("BYJ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BYJ" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BYI" & rowNum).Value
        Call ImpSavings(2, rowNum)
        returnRange.Select
    End If
End Sub

Public Sub Cont3ImpFees(rowNum As Integer)
    Set returnRange = ActiveCell
    
    'Implemented Fees for Container 3'
    'If theres an Environmental Fee for Container 3'
    If Worksheets("ASR").Range("BZW" & rowNum).Value <> "" Then
            While ActiveCell.Value <> ""
                ActiveCell.Offset(1).Select
            Wend
            ActiveCell.Value = "Environmental Fee"
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BZW" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("BZX" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("BZX" & rowNum).Value & "%"
        End If
        Call ImpSavings(3, rowNum)
        returnRange.Select
    End If
    
    'If a Fee Type 1 Exists for Container 3'
    If Worksheets("ASR").Range("BZY" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("BZY" & rowNum).Value
        If Worksheets("ASR").Range("CAA" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("CAA" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("BZZ" & rowNum).Value
        Call ImpSavings(3, rowNum)
        returnRange.Select
    End If
    
    'If a Fee Type 2 Exists for Container 3'
    If Worksheets("ASR").Range("CAB" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("CAB" & rowNum).Value
        If Worksheets("ASR").Range("CAD" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("CAD" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("CAC" & rowNum).Value
        Call ImpSavings(3, rowNum)
        returnRange.Select
    End If

    'If a Fee Type 3 Exists for Container 3'
    If Worksheets("ASR").Range("CAE" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("CAE" & rowNum).Value
        If Worksheets("ASR").Range("CAG" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("CAG" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("CAF" & rowNum).Value
        Call ImpSavings(3, rowNum)
        returnRange.Select
    End If
    
    'If a Fee Type 4 Exists for Container 3'
    If Worksheets("ASR").Range("CAH" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("CAH" & rowNum).Value
        If Worksheets("ASR").Range("CAJ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("CAJ" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("CAI" & rowNum).Value
        Call ImpSavings(3, rowNum)
        returnRange.Select
    End If
    
    'If a Fee Type 5 Exists for Container 3'
    If Worksheets("ASR").Range("CAK" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("CAK" & rowNum).Value
        If Worksheets("ASR").Range("CAM" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("CAM" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("CAL" & rowNum).Value
        Call ImpSavings(3, rowNum)
        returnRange.Select
    End If
End Sub

Public Sub Cont4ImpFees(rowNum As Integer)

    Set returnRange = ActiveCell
    'Implemented Fees for Container 4'
    'If theres an Environmental Fee for Container 4'
    If Worksheets("ASR").Range("CBZ" & rowNum).Value <> "" Then
            While ActiveCell.Value <> ""
                ActiveCell.Offset(1).Select
            Wend
            ActiveCell.Value = "Environmental Fee"
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("CBZ" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("CCA" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("CCA" & rowNum).Value & "%"
        End If
        Call ImpSavings(4, rowNum)
        returnRange.Select
    End If
    
    'If a Fee Type 1 Exists for Container 4
    If Worksheets("ASR").Range("CCB" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("CCB" & rowNum).Value
        If Worksheets("ASR").Range("CCD" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("CCD" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("CCC" & rowNum).Value
        Call ImpSavings(4, rowNum)
        returnRange.Select
    End If
    
    'If a Fee Type 2 Exists for Container 2'
    If Worksheets("ASR").Range("CCE" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("CCE" & rowNum).Value
        If Worksheets("ASR").Range("CCG" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("CCG" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("CCF" & rowNum).Value
        Call ImpSavings(4, rowNum)
        returnRange.Select
    End If

    'If a Fee Type 3 Exists for Container 4'
    If Worksheets("ASR").Range("CCH" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("CCH" & rowNum).Value
        If Worksheets("ASR").Range("CCJ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("CCJ" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("CCI" & rowNum).Value
        Call ImpSavings(4, rowNum)
        returnRange.Select
    End If
    
    'If a Fee Type 4 Exists for Container 4'
    If Worksheets("ASR").Range("CCK" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("CCK" & rowNum).Value
        If Worksheets("ASR").Range("CCM" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("CCM" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("CCL" & rowNum).Value
        Call ImpSavings(4, rowNum)
        returnRange.Select
    End If
    
    'If a Fee Type 5 Exists for Container 4'
    If Worksheets("ASR").Range("CCN" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("CCN" & rowNum).Value
        If Worksheets("ASR").Range("CCP" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("CCP" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("CCO" & rowNum).Value
        Call ImpSavings(4, rowNum)
        returnRange.Select
    End If
End Sub

Public Sub Cont5ImpFees(rowNum As Integer)
    Set returnRange = ActiveCell
    
    'Implemented Fees for Container 5'
    'If theres an Environmental Fee for Container 5'
    If Worksheets("ASR").Range("CEC" & rowNum).Value <> "" Then
            While ActiveCell.Value <> ""
                ActiveCell.Offset(1).Select
            Wend
            ActiveCell.Value = "Environmental Fee"
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("CEC" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("CED" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("CED" & rowNum).Value & "%"
        End If
        Call ImpSavings(5, rowNum)
        returnRange.Select
    End If
    
    'If a Fee Type 1 Exists for Container 5
    If Worksheets("ASR").Range("CEE" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("CEE" & rowNum).Value
        If Worksheets("ASR").Range("CEG" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("CEG" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("CEF" & rowNum).Value
        Call ImpSavings(5, rowNum)
        returnRange.Select
    End If
    
    'If a Fee Type 2 Exists for Container 2'
    If Worksheets("ASR").Range("CEH" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("CEH" & rowNum).Value
        If Worksheets("ASR").Range("CEJ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("CEJ" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("CEI" & rowNum).Value
        Call ImpSavings(5, rowNum)
        returnRange.Select
    End If

    'If a Fee Type 3 Exists for Container 5
    If Worksheets("ASR").Range("CEK" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("CEK" & rowNum).Value
        If Worksheets("ASR").Range("CEM" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("CEM" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("CEL" & rowNum).Value
        Call ImpSavings(5, rowNum)
        returnRange.Select
    End If
    
    'If a Fee Type 4 Exists for Container 5
    If Worksheets("ASR").Range("CEN" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("CEN" & rowNum).Value
        If Worksheets("ASR").Range("CEP" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("CEP" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("CEO" & rowNum).Value
        Call ImpSavings(5, rowNum)
        returnRange.Select
    End If
    
    'If a Fee Type 5 Exists for Container 5
    If Worksheets("ASR").Range("CEQ" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("CEQ" & rowNum).Value
        If Worksheets("ASR").Range("CES" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("CES" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("CER" & rowNum).Value
        Call ImpSavings(5, rowNum)
        returnRange.Select
    End If
End Sub

Public Sub Cont6ImpFees(rowNum As Integer)

    Set returnRange = ActiveCell
    'Implemented Fees for Container 6'
    'If theres an Environmental Fee for Container 6'
    If Worksheets("ASR").Range("CGF" & rowNum).Value <> "" Then
            While ActiveCell.Value <> ""
                ActiveCell.Offset(1).Select
            Wend
            ActiveCell.Value = "Environmental Fee"
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("CGF" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("CGG" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("CGG" & rowNum).Value & "%"
        End If
        Call ImpSavings(6, rowNum)
        returnRange.Select
    End If
    
    'If a Fee Type 1 Exists for Container 6
    If Worksheets("ASR").Range("CGH" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("CGH" & rowNum).Value
        If Worksheets("ASR").Range("CGJ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("CGJ" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("CGI" & rowNum).Value
        Call ImpSavings(6, rowNum)
        returnRange.Select
    End If
    
    'If a Fee Type 2 Exists for Container 6
    If Worksheets("ASR").Range("CGK" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("CGK" & rowNum).Value
        If Worksheets("ASR").Range("CGM" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("CGM" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("CGL" & rowNum).Value
        Call ImpSavings(6, rowNum)
        returnRange.Select
    End If

    'If a Fee Type 3 Exists for Container 6'
    If Worksheets("ASR").Range("CGN" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("CGN" & rowNum).Value
        If Worksheets("ASR").Range("CGP" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("CGP" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("CGO" & rowNum).Value
        Call ImpSavings(6, rowNum)
        returnRange.Select
    End If
    
    'If a Fee Type 4 Exists for Container 6'
    If Worksheets("ASR").Range("CGQ" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("CGQ" & rowNum).Value
        If Worksheets("ASR").Range("CGS" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("CGS" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("CGR" & rowNum).Value
        Call ImpSavings(6, rowNum)
        returnRange.Select
    End If
    
    'If a Fee Type 5 Exists for Container 6'
    If Worksheets("ASR").Range("CGT" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("CGT" & rowNum).Value
        If Worksheets("ASR").Range("CGP" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("CGP" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("CGU" & rowNum).Value
        Call ImpSavings(6, rowNum)
        returnRange.Select
    End If
End Sub

Public Sub Cont7ImpFees(rowNum As Integer)

    Set returnRange = ActiveCell
    'Implemented Fees for Container 7'
    'If theres an Environmental Fee for Container 7'
    If Worksheets("ASR").Range("CII" & rowNum).Value <> "" Then
            While ActiveCell.Value <> ""
                ActiveCell.Offset(1).Select
            Wend
            ActiveCell.Value = "Environmental Fee"
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("CII" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("CIJ" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("CIJ" & rowNum).Value & "%"
        End If
        Call ImpSavings(7, rowNum)
        returnRange.Select
    End If
    
    'If a Fee Type 1 Exists for Container 7
    If Worksheets("ASR").Range("CIK" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("CIK" & rowNum).Value
        If Worksheets("ASR").Range("CIM" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("CIM" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("CIL" & rowNum).Value
        Call ImpSavings(7, rowNum)
        returnRange.Select
    End If
    
    'If a Fee Type 2 Exists for Container 7'
    If Worksheets("ASR").Range("CIN" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("CIN" & rowNum).Value
        If Worksheets("ASR").Range("CIP" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("CIP" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("CIO" & rowNum).Value
        Call ImpSavings(7, rowNum)
        returnRange.Select
    End If

    'If a Fee Type 3 Exists for Container 7'
    If Worksheets("ASR").Range("CIQ" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("CIQ" & rowNum).Value
        If Worksheets("ASR").Range("CIS" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("CIS" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("CIR" & rowNum).Value
        Call ImpSavings(7, rowNum)
        returnRange.Select
    End If
    
    'If a Fee Type 4 Exists for Container 7'
    If Worksheets("ASR").Range("CIT" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("CIT" & rowNum).Value
        If Worksheets("ASR").Range("CIV" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("CIV" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("CIU" & rowNum).Value
        Call ImpSavings(7, rowNum)
        returnRange.Select
    End If
    
    'If a Fee Type 5 Exists for Container 7'
    If Worksheets("ASR").Range("CIW" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("CIW" & rowNum).Value
        If Worksheets("ASR").Range("CIY" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("CIY" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("CIX" & rowNum).Value
        Call ImpSavings(7, rowNum)
        returnRange.Select
    End If
End Sub

Public Sub Cont8ImpFees(rowNum As Integer)

    Set returnRange = ActiveCell
    'Implemented Fees for Container 8'
    'If theres an Environmental Fee for Container 8'
    If Worksheets("ASR").Range("CKL" & rowNum).Value <> "" Then
            While ActiveCell.Value <> ""
                ActiveCell.Offset(1).Select
            Wend
            ActiveCell.Value = "Environmental Fee"
            ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("CKL" & rowNum).Value
        'If theres a Fuel / Environmental Rate
        If Worksheets("ASR").Range("CKM" & rowNum).Value <> "" Then
            ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("CKM" & rowNum).Value & "%"
        End If
        Call ImpSavings(8, rowNum)
        returnRange.Select
    End If
    
    'If a Fee Type 1 Exists for Container 8
    If Worksheets("ASR").Range("CKN" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("CKN" & rowNum).Value
        If Worksheets("ASR").Range("CKP" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("CKP" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("CKO" & rowNum).Value
        Call ImpSavings(8, rowNum)
        returnRange.Select
    End If
    
    'If a Fee Type 2 Exists for Container 8'
    If Worksheets("ASR").Range("CKQ" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("CKQ" & rowNum).Value
        If Worksheets("ASR").Range("CKS" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("CKS" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("CKR" & rowNum).Value
        Call ImpSavings(8, rowNum)
        returnRange.Select
    End If

    'If a Fee Type 3 Exists for Container 8'
    If Worksheets("ASR").Range("CKT" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("CKT" & rowNum).Value
        If Worksheets("ASR").Range("CKV" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("CKV" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("CKU" & rowNum).Value
        Call ImpSavings(8, rowNum)
        returnRange.Select
    End If
    
    'If a Fee Type 4 Exists for Container 8'
    If Worksheets("ASR").Range("CKW" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("CKW" & rowNum).Value
        If Worksheets("ASR").Range("CKY" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("CKY" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("CKX" & rowNum).Value
        Call ImpSavings(8, rowNum)
        returnRange.Select
    End If
    
    'If a Fee Type 5 Exists for Container 8'
    If Worksheets("ASR").Range("CKZ" & rowNum).Value <> "" Then
        While ActiveCell.Value <> ""
            ActiveCell.Offset(1).Select
        Wend
        ActiveCell.Value = Worksheets("ASR").Range("CKZ" & rowNum).Value
        If Worksheets("ASR").Range("CLB" & rowNum).Value <> "" Then ActiveCell.Offset(0, 2).Value = Worksheets("ASR").Range("CLB" & rowNum).Value & "%"
        ActiveCell.Offset(0, 3).Value = Worksheets("ASR").Range("CLA" & rowNum).Value
        Call ImpSavings(8, rowNum)
        returnRange.Select
    End If
End Sub


Public Sub ImpSavings(containNum As Integer, rowNum As Integer)
Dim spend As Currency
Dim status As String
Dim sumRejected As Currency
Dim impl As String


sumRejected = 0
    'billing correction savings'
    Range("BI" & ActiveCell.Row).Select
    If Range("BA" & ActiveCell.Row).Value <> "" Then
        'we have a rate change for the billing correction
        If Range("AY" & ActiveCell.Row).Value <> "" Then
            'we have a rate change for the current service
            Range("BI" & ActiveCell.Row).Value = Format(Range("AY" & ActiveCell.Row).Value - Range("BA" & ActiveCell.Row).Value, "Currency")
        Else: Range("BI" & ActiveCell.Row).Value = Format(Range("M" & ActiveCell.Row).Value - Range("BA" & ActiveCell.Row).Value, "Currency")
        End If
    ElseIf Range("R" & ActiveCell.Row).Value <> "" Then
        'we don't have a rate change for the billing correction
        If Range("AY" & ActiveCell.Row).Value <> "" Then
        'we have a rate change for the current service
            Range("BI" & ActiveCell.Row).Value = Format(Range("AY" & ActiveCell.Row).Value - Range("R" & ActiveCell.Row).Value, "Currency")
        Else: Range("BI" & ActiveCell.Row).Value = Format(Range("M" & ActiveCell.Row).Value - Range("R" & ActiveCell.Row).Value, "Currency")
        End If
    Else: ActiveCell.Value = Format(Range("M" & ActiveCell.Row).Value, "Currency")
    End If

If containNum = 1 Then
    status = Worksheets("ASR").Range("AGC" & rowNum).Value
    impl = Worksheets("ASR").Range("BWQ" & rowNum).Value
ElseIf containNum = 2 Then
    status = Worksheets("ASR").Range("AHJ" & rowNum).Value
    impl = Worksheets("ASR").Range("BYR" & rowNum).Value
ElseIf containNum = 3 Then
    status = Worksheets("ASR").Range("AIQ" & rowNum).Value
    impl = Worksheets("ASR").Range("CAU" & rowNum).Value
ElseIf containNum = 4 Then
    status = Worksheets("ASR").Range("AJX" & rowNum).Value
    impl = Worksheets("ASR").Range("CCX" & rowNum).Value
ElseIf containNum = 5 Then
    status = Worksheets("ASR").Range("ALE" & rowNum).Value
    impl = Worksheets("ASR").Range("CFA" & rowNum).Value
ElseIf containNum = 6 Then
    status = Worksheets("ASR").Range("AMN" & rowNum).Value
    impl = Worksheets("ASR").Range("CHD" & rowNum).Value
ElseIf containNum = 7 Then
    status = Worksheets("ASR").Range("ANZ" & rowNum).Value
    impl = Worksheets("ASR").Range("CJG" & rowNum).Value
ElseIf containNum = 8 Then
    status = Worksheets("ASR").Range("APL" & rowNum).Value
    impl = Worksheets("ASR").Range("CLJ" & rowNum).Value
Else:
    status = ""
    impl = "No"
End If

ActiveCell.Offset(0, 1).Select
If status = "Accepted" Then
    If impl = "Yes" Then   'accepted, and implemented'
        'rate reduction savings'
        If Range("BC" & ActiveCell.Row).Value <> "" Then   'rate change in rr'
            If Range("AY" & ActiveCell.Row).Value <> "" Then   'rate change in current spend
                Range("BJ" & ActiveCell.Row).Value = Format(Range("AY" & ActiveCell.Row).Value - Range("BC" & ActiveCell.Row).Value - ActiveCell.Offset(, -1).Value, "Currency")
            Else: Range("BJ" & ActiveCell.Row).Value = Format(Range("M" & ActiveCell.Row).Value - Range("BC" & ActiveCell.Row).Value - ActiveCell.Offset(, -1).Value, "Currency")
            End If
        ElseIf Range("W" & ActiveCell.Row).Value <> "" Then
            If Range("AY" & ActiveCell.Row).Value <> "" Then
                Range("BJ" & ActiveCell.Row).Value = Format(Range("AY" & ActiveCell.Row).Value - Range("W" & ActiveCell.Row).Value - ActiveCell.Offset(, -1).Value, "Currency")
            Else: Range("BJ" & ActiveCell.Row).Value = Format(Range("M" & ActiveCell.Row).Value - Range("W" & ActiveCell.Row).Value - ActiveCell.Offset(, -1).Value, "Currency")
            End If
        Else: ActiveCell.Value = Format(Range("M" & ActiveCell.Row).Value - ActiveCell.Offset(, -1).Value, "Currency")
        End If
    Else:   'accepted and not implemented'
        Range("BJ" & ActiveCell.Row).Value = Format(0, "Currency")
    End If
ElseIf status = "Rejected" Then
    Range("BJ" & ActiveCell.Row).Value = Format(0, "Currency")
    rejectVal = Range("M" & ActiveCell.Row).Value - Range("W" & ActiveCell.Row).Value - ActiveCell.Offset(, -1).Value
    sumRejected = sumRejected + rejectVal
ElseIf status = "Partially Accepted" Then:
 
Else:
    Range("BJ" & ActiveCell.Row).Value = Format(0, "Currency")
End If


If containNum = 1 Then
    status = Worksheets("ASR").Range("AQX" & rowNum).Value
    impl = Worksheets("ASR").Range("BWT" & rowNum).Value
ElseIf containNum = 2 Then
    status = Worksheets("ASR").Range("ASE" & rowNum).Value
    impl = Worksheets("ASR").Range("BYU" & rowNum).Value
ElseIf containNum = 3 Then
    status = Worksheets("ASR").Range("ATL" & rowNum).Value
    impl = Worksheets("ASR").Range("CAX" & rowNum).Value
ElseIf containNum = 4 Then
    status = Worksheets("ASR").Range("AUS" & rowNum).Value
    impl = Worksheets("ASR").Range("CDA" & rowNum).Value
ElseIf containNum = 5 Then
    status = Worksheets("ASR").Range("AVZ" & rowNum).Value
    impl = Worksheets("ASR").Range("CFD" & rowNum).Value
ElseIf containNum = 6 Then
    status = Worksheets("ASR").Range("AXI" & rowNum).Value
    impl = Worksheets("ASR").Range("CHG" & rowNum).Value
ElseIf containNum = 7 Then
    status = Worksheets("ASR").Range("AYU" & rowNum).Value
    impl = Worksheets("ASR").Range("CJJ" & rowNum).Value
ElseIf containNum = 8 Then
    status = Worksheets("ASR").Range("BAG" & rowNum).Value
    impl = Worksheets("ASR").Range("CLM" & rowNum).Value
Else:
    status = ""
    impl = "No"
End If

ActiveCell.Offset(0, 1).Select
If status = "Accepted" Then
    If impl = "Yes" Then    'accepted and implemented'
        'vendor switch savings savings'
        If Range("BE" & ActiveCell.Row).Value <> "" Then  'rate change in vs'
            If Range("AY" & ActiveCell.Row).Value <> "" Then   'rate change in current spend'
                Range("BK" & ActiveCell.Row).Value = Format(Range("AY" & ActiveCell.Row).Value - Range("BE" & ActiveCell.Row).Value - ActiveCell.Offset(, -2).Value - ActiveCell.Offset(, -1).Value, "Currency")
            Else: Range("BK" & ActiveCell.Row).Value = Format(Range("M" & ActiveCell.Row).Value - Range("BE" & ActiveCell.Row).Value - ActiveCell.Offset(, -2).Value - ActiveCell.Offset(, -1).Value, "Currency")
            End If
        ElseIf Range("AC" & ActiveCell.Row).Value <> "" Then
            If Range("AY" & ActiveCell.Row).Value <> "" Then
                Range("BK" & ActiveCell.Row).Value = Format(Range("AY" & ActiveCell.Row).Value - Range("AC" & ActiveCell.Row).Value - ActiveCell.Offset(, -2).Value - ActiveCell.Offset(, -1).Value, "Currency")
            Else: Range("BK" & ActiveCell.Row).Value = Format(Range("M" & ActiveCell.Row).Value - Range("AC" & ActiveCell.Row).Value - ActiveCell.Offset(, -2).Value - ActiveCell.Offset(, -1).Value, "Currency")
            End If
        Else: ActiveCell.Value = Format(Range("M" & ActiveCell.Row).Value - ActiveCell.Offset(, -2).Value - ActiveCell.Offset(, -1).Value, "Currency")
        End If
    Else:    'accepted, not implemented'
        Range("BK" & ActiveCell.Row).Value = Format(0, "Currency")
    End If
ElseIf status = "Rejected" Then
    Range("BK" & ActiveCell.Row).Value = Format(0, "Currency")
    rejectVal = (Range("M" & ActiveCell.Row).Value - Range("AC" & ActiveCell.Row).Value) - ActiveCell.Offset(, -1).Value - ActiveCell.Offset(, -2).Value
    sumRejected = sumRejected + rejectVal
Else:
    Range("BK" & ActiveCell.Row).Value = Format(0, "Currency")
End If


If containNum = 1 Then
    status = Worksheets("ASR").Range("BBQ" & rowNum).Value
    impl = Worksheets("ASR").Range("BWV" & rowNum).Value
ElseIf containNum = 2 Then
    status = Worksheets("ASR").Range("BCX" & rowNum).Value
    impl = Worksheets("ASR").Range("BYU" & rowNum).Value
ElseIf containNum = 3 Then
    status = Worksheets("ASR").Range("BEE" & rowNum).Value
    impl = Worksheets("ASR").Range("CAZ" & rowNum).Value
ElseIf containNum = 4 Then
    status = Worksheets("ASR").Range("BFL" & rowNum).Value
    impl = Worksheets("ASR").Range("CDC" & rowNum).Value
ElseIf containNum = 5 Then
    status = Worksheets("ASR").Range("BGS" & rowNum).Value
    impl = Worksheets("ASR").Range("CFD" & rowNum).Value
ElseIf containNum = 6 Then
    status = Worksheets("ASR").Range("BIF" & rowNum).Value
    impl = Worksheets("ASR").Range("CHI" & rowNum).Value
ElseIf containNum = 7 Then
    status = Worksheets("ASR").Range("BJR" & rowNum).Value
    impl = Worksheets("ASR").Range("CJL" & rowNum).Value
ElseIf containNum = 8 Then
    status = Worksheets("ASR").Range("BLD" & rowNum).Value
    impl = Worksheets("ASR").Range("CLO" & rowNum).Value
Else:
    status = ""
    impl = "No"
End If

ActiveCell.Offset(0, 1).Select

If status = "Accepted" Then
    If impl = "Yes" Then    'accepted and implemented'
        'service standardization savings'
        If Range("BG" & ActiveCell.Row).Value <> "" Then   'rate change in ss
            If Range("AY" & ActiveCell.Row).Value <> "" Then  'rate change in current spend
                Range("BL" & ActiveCell.Row).Value = Format(Range("AY" & ActiveCell.Row).Value - Range("BG" & ActiveCell.Row).Value - ActiveCell.Offset(, -3).Value - ActiveCell.Offset(, -2).Value - ActiveCell.Offset(, -1).Value, "Currency")
            Else: Range("BL" & ActiveCell.Row).Value = Format(Range("M" & ActiveCell.Row).Value - Range("BG" & ActiveCell.Row).Value - ActiveCell.Offset(, -3).Value - ActiveCell.Offset(, -2).Value - ActiveCell.Offset(, -1).Value, "Currency")
            End If
        ElseIf Range("AC" & ActiveCell.Row).Value <> "" Then
            If Range("AY" & ActiveCell.Row).Value <> "" Then
                Range("BL" & ActiveCell.Row).Value = Format(Range("AY" & ActiveCell.Row).Value - Range("AH" & ActiveCell.Row).Value - ActiveCell.Offset(, -3).Value - ActiveCell.Offset(, -2).Value - ActiveCell.Offset(, -1).Value, "Currency")
            Else: Range("BL" & ActiveCell.Row).Value = Format(Range("M" & ActiveCell.Row).Value - Range("AH" & ActiveCell.Row).Value - ActiveCell.Offset(, -3).Value - ActiveCell.Offset(, -2).Value - ActiveCell.Offset(, -1).Value, "Currency")
            End If
        Else: ActiveCell.Value = Format(Range("M" & ActiveCell.Row).Value - ActiveCell.Offset(, -3).Value - ActiveCell.Offset(, -2).Value - ActiveCell.Offset(, -1).Value, "Currency")
        End If
    Else:    'accepted and not implemented'
        Range("BL" & ActiveCell.Row).Value = Format(0, "Currency")
    End If
ElseIf status = "Rejected" Then
    Range("BL" & ActiveCell.Row).Value = Format(0, "Currency")
    rejectVal = (Range("M" & ActiveCell.Row).Value - Range("AH" & ActiveCell.Row).Value) - ActiveCell.Offset(, -1).Value - ActiveCell.Offset(, -2).Value - ActiveCell.Offset(, -3).Value
    sumRejected = sumRejected + rejectVal
Else:
    Range("BL" & ActiveCell.Row).Value = Format(0, "Currency")
End If
    
    
    Range("BM" & ActiveCell.Row).Select
    If ActiveCell.Offset(, -1).Value <> "" Then ActiveCell.Value = Format(ActiveCell.Offset(, -4).Value + ActiveCell.Offset(, -3).Value + ActiveCell.Offset(, -2).Value + ActiveCell.Offset(, -1).Value, "Currency")
    Range("BO" & ActiveCell.Row).Value = sumRejected
End Sub
    

Public Sub Cont1NewRates(loc As Range, rowNum As Integer)
    'Implemented Rate Change Fees for Container 1'
    
    'If theres an Environmental Fee Rate Change for Container 1'
    While ActiveCell.Value <> ""
        ActiveCell.Offset(1).Select
    Wend
    'Current Spend
    If Worksheets("ASR").Range("CNE" & rowNum).Value <> "" Then
        ActiveCell.Value = "Environmental Fee"
        ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("CNE" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Billing Corrections'
    If Worksheets("ASR").Range("CVQ" & rowNum).Value <> "" Then
        ActiveCell.Value = "Environmental Fee"
        ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("CVQ" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Rate Reductions
    If Worksheets("ASR").Range("DEC" & rowNum).Value <> "" Then
        ActiveCell.Value = "Environmental Fee"
        ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("DEC" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Vendor Switch
    If Worksheets("ASR").Range("DMO" & rowNum).Value <> "" Then
        ActiveCell.Value = "Environmental Fee"
        ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("DMO" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Service Standardizations
    If Worksheets("ASR").Range("DVB" & rowNum).Value <> "" Then
        ActiveCell.Value = "Environmental Fee"
        ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("DVB" & rowNum).Value
    End If

        
    Range("AX" & loc.Row).Select
    'If a Fee Type 1 Exists for Container 1
    While ActiveCell.Value <> ""
        ActiveCell.Offset(1).Select
    Wend
    'Current Spend
    If Worksheets("ASR").Range("CNG" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("CNG" & rowNum).Value
        If Worksheets("ASR").Range("CNH" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CNH" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Billing Corrections'
    If Worksheets("ASR").Range("CVS" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("CVS" & rowNum).Value
        If Worksheets("ASR").Range("CVT" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CVT" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Rate Reductions
    If Worksheets("ASR").Range("DEE" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DEE" & rowNum).Value
        If Worksheets("ASR").Range("DEF" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DEF" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Vendor Switch
    If Worksheets("ASR").Range("DMQ" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DMQ" & rowNum).Value
        If Worksheets("ASR").Range("DMR" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DMR" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Service Standardizations
    If Worksheets("ASR").Range("DVD" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DVD" & rowNum).Value
        If Worksheets("ASR").Range("DVE" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DVE" & rowNum).Value
    End If
    
    
    Range("AX" & loc.Row).Select
    'If a Fee Type 2 Exists for Container 1'
    While ActiveCell.Value <> ""
        ActiveCell.Offset(1).Select
    Wend
    'Current Spend
    If Worksheets("ASR").Range("CNJ" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("CNJ" & rowNum).Value
        If Worksheets("ASR").Range("CNK" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CNK" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Billing Corrections'
    If Worksheets("ASR").Range("CVV" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("CVV" & rowNum).Value
        If Worksheets("ASR").Range("CVW" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CVW" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Rate Reductions
    If Worksheets("ASR").Range("DEH" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DEH" & rowNum).Value
        If Worksheets("ASR").Range("DEI" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DEI" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Vendor Switch
    If Worksheets("ASR").Range("DMT" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DMT" & rowNum).Value
        If Worksheets("ASR").Range("DMU" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DMU" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Service Standardizations
    If Worksheets("ASR").Range("DVG" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DVG" & rowNum).Value
        If Worksheets("ASR").Range("DVH" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DVH" & rowNum).Value
    End If
    
    
    Range("AX" & loc.Row).Select
    'If a Fee Type 3 Exists for Container 1'
    While ActiveCell.Value <> ""
        ActiveCell.Offset(1).Select
    Wend
    'Current Spend
    If Worksheets("ASR").Range("CNM" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("CNM" & rowNum).Value
        If Worksheets("ASR").Range("CNN" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CNN" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Billing Corrections'
    If Worksheets("ASR").Range("CVY" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("CVY" & rowNum).Value
        If Worksheets("ASR").Range("CVZ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CVZ" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Rate Reductions
    If Worksheets("ASR").Range("DEK" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DEK" & rowNum).Value
        If Worksheets("ASR").Range("DEL" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DEL" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Vendor Switch
    If Worksheets("ASR").Range("DMW" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DMW" & rowNum).Value
        If Worksheets("ASR").Range("DMX" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DMX" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Service Standardizations
    If Worksheets("ASR").Range("DVJ" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DVJ" & rowNum).Value
        If Worksheets("ASR").Range("DVK" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DVK" & rowNum).Value
    End If
    
    
    Range("AX" & loc.Row).Select
    'If a Fee Type 4 Exists for Container 1'
    While ActiveCell.Value <> ""
        ActiveCell.Offset(1).Select
    Wend
    'Current Spend
    If Worksheets("ASR").Range("CNP" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("CNP" & rowNum).Value
        If Worksheets("ASR").Range("CNQ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CNQ" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Billing Corrections'
    If Worksheets("ASR").Range("CWB" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("CWB" & rowNum).Value
        If Worksheets("ASR").Range("CWC" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CWC" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Rate Reductions
    If Worksheets("ASR").Range("DEN" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DEN" & rowNum).Value
        If Worksheets("ASR").Range("DEO" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DEO" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Vendor Switch
    If Worksheets("ASR").Range("DMZ" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DMZ" & rowNum).Value
        If Worksheets("ASR").Range("DNA" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DNA" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Service Standardizations
    If Worksheets("ASR").Range("DVM" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DVM" & rowNum).Value
        If Worksheets("ASR").Range("DVN" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DVN" & rowNum).Value
    End If
    
    
    Range("AX" & loc.Row).Select
    'If a Fee Type 5 Exists for Container 1'
    While ActiveCell.Value <> ""
        ActiveCell.Offset(1).Select
    Wend
    'Current Spend
    If Worksheets("ASR").Range("CNS" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("CNS" & rowNum).Value
        If Worksheets("ASR").Range("CNT" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CNT" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Billing Corrections'
    If Worksheets("ASR").Range("CWE" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("CWE" & rowNum).Value
        If Worksheets("ASR").Range("CWF" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CWF" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Rate Reductions
    If Worksheets("ASR").Range("DEQ" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DEQ" & rowNum).Value
        If Worksheets("ASR").Range("DER" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DER" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Vendor Switch
    If Worksheets("ASR").Range("DNC" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DNC" & rowNum).Value
        If Worksheets("ASR").Range("DND" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DND" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Service Standardizations
    If Worksheets("ASR").Range("DVP" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DVP" & rowNum).Value
        If Worksheets("ASR").Range("DVQ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DVQ" & rowNum).Value
    End If

    
End Sub


Public Sub Cont2NewRates(loc As Range, rowNum As Integer)
    'Implemented Rate Change Fees for Container 2'
    
    'If theres an Environmental Fee Rate Change for Container 2'
    While ActiveCell.Value <> ""
        ActiveCell.Offset(1).Select
    Wend
    'Current Spend
    If Worksheets("ASR").Range("COE" & rowNum).Value <> "" Then
        ActiveCell.Value = "Environmental Fee"
        ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("COE" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Billing Corrections'
    If Worksheets("ASR").Range("CWQ" & rowNum).Value <> "" Then
        ActiveCell.Value = "Environmental Fee"
        ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("CWQ" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Rate Reductions
    If Worksheets("ASR").Range("DFC" & rowNum).Value <> "" Then
        ActiveCell.Value = "Environmental Fee"
        ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("DFC" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Vendor Switch
    If Worksheets("ASR").Range("DNO" & rowNum).Value <> "" Then
        ActiveCell.Value = "Environmental Fee"
        ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("DNO" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Service Standardizations
    If Worksheets("ASR").Range("DWB" & rowNum).Value <> "" Then
        ActiveCell.Value = "Environmental Fee"
        ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("DWB" & rowNum).Value
    End If

        
    Range("AX" & loc.Row).Select
    'If a Fee Type 1 Exists for Container 2
    While ActiveCell.Value <> ""
        ActiveCell.Offset(1).Select
    Wend
    'Current Spend
    If Worksheets("ASR").Range("COG" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("COG" & rowNum).Value
        If Worksheets("ASR").Range("COH" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("COH" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Billing Corrections'
    If Worksheets("ASR").Range("CWS" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("CWS" & rowNum).Value
        If Worksheets("ASR").Range("CWT" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CWT" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Rate Reductions
    If Worksheets("ASR").Range("DFE" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DFE" & rowNum).Value
        If Worksheets("ASR").Range("DFF" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DFF" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Vendor Switch
    If Worksheets("ASR").Range("DNQ" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DNQ" & rowNum).Value
        If Worksheets("ASR").Range("DNR" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DNR" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Service Standardizations
    If Worksheets("ASR").Range("DWD" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DWD" & rowNum).Value
        If Worksheets("ASR").Range("DWE" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DWE" & rowNum).Value
    End If
    
    
    Range("AX" & loc.Row).Select
    'If a Fee Type 2 Exists for Container 2'
    While ActiveCell.Value <> ""
        ActiveCell.Offset(1).Select
    Wend
    'Current Spend
    If Worksheets("ASR").Range("COJ" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("COJ" & rowNum).Value
        If Worksheets("ASR").Range("COK" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("COK" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Billing Corrections'
    If Worksheets("ASR").Range("CWV" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("CWV" & rowNum).Value
        If Worksheets("ASR").Range("CWW" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CWW" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Rate Reductions
    If Worksheets("ASR").Range("DFH" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DFH" & rowNum).Value
          If Worksheets("ASR").Range("DFI" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DFI" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Vendor Switch
    If Worksheets("ASR").Range("DNT" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DNT" & rowNum).Value
        If Worksheets("ASR").Range("DNU" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DNU" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Service Standardizations
    If Worksheets("ASR").Range("DWG" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DWG" & rowNum).Value
        If Worksheets("ASR").Range("DWH" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DWH" & rowNum).Value
    End If
    
    
    Range("AX" & loc.Row).Select
    'If a Fee Type 3 Exists for Container 2'
    While ActiveCell.Value <> ""
        ActiveCell.Offset(1).Select
    Wend
    'Current Spend
    If Worksheets("ASR").Range("COM" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("COM" & rowNum).Value
        If Worksheets("ASR").Range("CON" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CON" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Billing Corrections'
    If Worksheets("ASR").Range("CWY" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("CWY" & rowNum).Value
        If Worksheets("ASR").Range("CWZ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CWZ" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Rate Reductions
    If Worksheets("ASR").Range("DFK" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DFK" & rowNum).Value
        If Worksheets("ASR").Range("DFL" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DFL" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Vendor Switch
    If Worksheets("ASR").Range("DNW" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DNW" & rowNum).Value
        If Worksheets("ASR").Range("DNX" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DNX" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Service Standardizations
    If Worksheets("ASR").Range("DWJ" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DWJ" & rowNum).Value
        If Worksheets("ASR").Range("DWK" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DWK" & rowNum).Value
    End If
    
    
    Range("AX" & loc.Row).Select
    'If a Fee Type 4 Exists for Container 2'
    While ActiveCell.Value <> ""
        ActiveCell.Offset(1).Select
    Wend
    'Current Spend
    If Worksheets("ASR").Range("COP" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("COP" & rowNum).Value
        If Worksheets("ASR").Range("COQ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("COQ" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Billing Corrections'
    If Worksheets("ASR").Range("CXB" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("CXB" & rowNum).Value
        If Worksheets("ASR").Range("CXC" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CXC" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Rate Reductions
    If Worksheets("ASR").Range("DFN" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DFN" & rowNum).Value
        If Worksheets("ASR").Range("DFO" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DFO" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Vendor Switch
    If Worksheets("ASR").Range("DNZ" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DNZ" & rowNum).Value
        If Worksheets("ASR").Range("DOA" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DOA" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Service Standardizations
    If Worksheets("ASR").Range("DWM" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DWM" & rowNum).Value
        If Worksheets("ASR").Range("DWN" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DWN" & rowNum).Value
    End If
    
    Range("AX" & loc.Row).Select
    'If a Fee Type 5 Exists for Container 2'
    While ActiveCell.Value <> ""
        ActiveCell.Offset(1).Select
    Wend
    'Current Spend
    If Worksheets("ASR").Range("COS" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("COS" & rowNum).Value
        If Worksheets("ASR").Range("COT" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("COT" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Billing Corrections'
    If Worksheets("ASR").Range("CXE" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("CXE" & rowNum).Value
        If Worksheets("ASR").Range("CXF" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CXF" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Rate Reductions
    If Worksheets("ASR").Range("DFQ" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DFQ" & rowNum).Value
        If Worksheets("ASR").Range("DFR" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DFR" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Vendor Switch
    If Worksheets("ASR").Range("DOC" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DOC" & rowNum).Value
        If Worksheets("ASR").Range("DOD" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DOD" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Service Standardizations
    If Worksheets("ASR").Range("DWP" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DWP" & rowNum).Value
        If Worksheets("ASR").Range("DWQ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DWQ" & rowNum).Value
    End If

    
End Sub

Public Sub Cont3NewRates(loc As Range, rowNum As Integer)
    'Implemented Rate Change Fees for Container 3'
    
    'If theres an Environmental Fee Rate Change for Container 3'
    While ActiveCell.Value <> ""
        ActiveCell.Offset(1).Select
    Wend
    'Current Spend
    If Worksheets("ASR").Range("CPD" & rowNum).Value <> "" Then
        ActiveCell.Value = "Environmental Fee"
        ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("CPD" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Billing Corrections'
    If Worksheets("ASR").Range("CXP" & rowNum).Value <> "" Then
        ActiveCell.Value = "Environmental Fee"
        ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("CXP" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Rate Reductions
    If Worksheets("ASR").Range("DGB" & rowNum).Value <> "" Then
        ActiveCell.Value = "Environmental Fee"
        ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("DGB" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Vendor Switch
    If Worksheets("ASR").Range("DON" & rowNum).Value <> "" Then
        ActiveCell.Value = "Environmental Fee"
        ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("DON" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Service Standardizations
    If Worksheets("ASR").Range("DXA" & rowNum).Value <> "" Then
        ActiveCell.Value = "Environmental Fee"
        ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("DXA" & rowNum).Value
    End If

        
    Range("AX" & loc.Row).Select
    'If a Fee Type 1 Exists for Container 3
    While ActiveCell.Value <> ""
        ActiveCell.Offset(1).Select
    Wend
    'Current Spend
    If Worksheets("ASR").Range("CPF" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("CPF" & rowNum).Value
        If Worksheets("ASR").Range("CPG" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CPG" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Billing Corrections'
    If Worksheets("ASR").Range("CXR" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("CXR" & rowNum).Value
        If Worksheets("ASR").Range("CXS" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CXS" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Rate Reductions
    If Worksheets("ASR").Range("DGD" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DGD" & rowNum).Value
        If Worksheets("ASR").Range("DGE" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DGE" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Vendor Switch
    If Worksheets("ASR").Range("DOP" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DOP" & rowNum).Value
        If Worksheets("ASR").Range("DOQ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DOQ" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Service Standardizations
    If Worksheets("ASR").Range("DXC" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DXC" & rowNum).Value
        If Worksheets("ASR").Range("DXD" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DXD" & rowNum).Value
    End If
    
    
    Range("AX" & loc.Row).Select
    'If a Fee Type 2 Exists for Container 3'
    While ActiveCell.Value <> ""
        ActiveCell.Offset(1).Select
    Wend
    'Current Spend
    If Worksheets("ASR").Range("CPI" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("CPI" & rowNum).Value
        If Worksheets("ASR").Range("CPJ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CPJ" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Billing Corrections'
    If Worksheets("ASR").Range("CXU" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("CXU" & rowNum).Value
        If Worksheets("ASR").Range("CXV" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CXV" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Rate Reductions
    If Worksheets("ASR").Range("DGG" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DGG" & rowNum).Value
        If Worksheets("ASR").Range("DGH" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DGH" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Vendor Switch
    If Worksheets("ASR").Range("DOS" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DOS" & rowNum).Value
        If Worksheets("ASR").Range("DOT" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DOT" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Service Standardizations
    If Worksheets("ASR").Range("DXF" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DXF" & rowNum).Value
        If Worksheets("ASR").Range("DXG" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DXG" & rowNum).Value
    End If
    
    
    Range("AX" & loc.Row).Select
    'If a Fee Type 3 Exists for Container 3'
    While ActiveCell.Value <> ""
        ActiveCell.Offset(1).Select
    Wend
    'Current Spend
    If Worksheets("ASR").Range("CPL" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("CPL" & rowNum).Value
        If Worksheets("ASR").Range("CPM" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CPM" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Billing Corrections'
    If Worksheets("ASR").Range("CXX" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("CXX" & rowNum).Value
        If Worksheets("ASR").Range("CXY" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CXY" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Rate Reductions
    If Worksheets("ASR").Range("DGJ" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DGJ" & rowNum).Value
        If Worksheets("ASR").Range("DGK" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DGK" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Vendor Switch
    If Worksheets("ASR").Range("DOV" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DOV" & rowNum).Value
        If Worksheets("ASR").Range("DOW" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DOW" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Service Standardizations
    If Worksheets("ASR").Range("DXI" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DXI" & rowNum).Value
        If Worksheets("ASR").Range("DXJ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DXJ" & rowNum).Value
    End If
    
    
    Range("AX" & loc.Row).Select
    'If a Fee Type 4 Exists for Container 3'
    While ActiveCell.Value <> ""
        ActiveCell.Offset(1).Select
    Wend
    'Current Spend
    If Worksheets("ASR").Range("CPO" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("CPO" & rowNum).Value
        If Worksheets("ASR").Range("CPP" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CPP" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Billing Corrections'
    If Worksheets("ASR").Range("CYA" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("CYA" & rowNum).Value
        If Worksheets("ASR").Range("CYB" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CYB" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Rate Reductions
    If Worksheets("ASR").Range("DGM" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DGM" & rowNum).Value
        If Worksheets("ASR").Range("DGN" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DGN" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Vendor Switch
    If Worksheets("ASR").Range("DOY" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DOY" & rowNum).Value
        If Worksheets("ASR").Range("DOZ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DOZ" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Service Standardizations
    If Worksheets("ASR").Range("DXL" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DXL" & rowNum).Value
        If Worksheets("ASR").Range("DXM" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DXM" & rowNum).Value
    End If
    
    
    Range("AX" & loc.Row).Select
    'If a Fee Type 5 Exists for Container 3'
    While ActiveCell.Value <> ""
        ActiveCell.Offset(1).Select
    Wend
    'Current Spend
    If Worksheets("ASR").Range("CPR" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("CPR" & rowNum).Value
        If Worksheets("ASR").Range("CPS" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CPS" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Billing Corrections'
    If Worksheets("ASR").Range("CYD" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("CYD" & rowNum).Value
        If Worksheets("ASR").Range("CYE" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CYE" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Rate Reductions
    If Worksheets("ASR").Range("DGP" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DGP" & rowNum).Value
        If Worksheets("ASR").Range("DGQ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DGQ" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Vendor Switch
    If Worksheets("ASR").Range("DPB" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DPB" & rowNum).Value
        If Worksheets("ASR").Range("DPC" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DPC" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Service Standardizations
    If Worksheets("ASR").Range("DXO" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DXO" & rowNum).Value
        If Worksheets("ASR").Range("DXP" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DXP" & rowNum).Value
    End If

    
End Sub


Public Sub Cont4NewRates(loc As Range, rowNum As Integer)
    'Implemented Rate Change Fees for Container 4'
    
    'If theres an Environmental Fee Rate Change for Container 4'
    While ActiveCell.Value <> ""
        ActiveCell.Offset(1).Select
    Wend
    'Current Spend
    If Worksheets("ASR").Range("CQD" & rowNum).Value <> "" Then
        ActiveCell.Value = "Environmental Fee"
        ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("CQD" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Billing Corrections'
    If Worksheets("ASR").Range("CYP" & rowNum).Value <> "" Then
        ActiveCell.Value = "Environmental Fee"
        ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("CYP" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Rate Reductions
    If Worksheets("ASR").Range("DHB" & rowNum).Value <> "" Then
        ActiveCell.Value = "Environmental Fee"
        ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("DHB" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Vendor Switch
    If Worksheets("ASR").Range("DPN" & rowNum).Value <> "" Then
        ActiveCell.Value = "Environmental Fee"
        ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("DPN" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Service Standardizations
    If Worksheets("ASR").Range("DYA" & rowNum).Value <> "" Then
        ActiveCell.Value = "Environmental Fee"
        ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("DYA" & rowNum).Value
    End If

        
    Range("AX" & loc.Row).Select
    'If a Fee Type 1 Exists for Container 4
    While ActiveCell.Value <> ""
        ActiveCell.Offset(1).Select
    Wend
    'Current Spend
    If Worksheets("ASR").Range("CQF" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("CQF" & rowNum).Value
        If Worksheets("ASR").Range("CQG" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CQG" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Billing Corrections'
    If Worksheets("ASR").Range("CYR" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("CYR" & rowNum).Value
        If Worksheets("ASR").Range("CYS" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CYS" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Rate Reductions
    If Worksheets("ASR").Range("DHD" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DHD" & rowNum).Value
        If Worksheets("ASR").Range("DHE" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DHE" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Vendor Switch
    If Worksheets("ASR").Range("DPP" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DPP" & rowNum).Value
        If Worksheets("ASR").Range("DPQ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DPQ" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Service Standardizations
    If Worksheets("ASR").Range("DYC" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DYC" & rowNum).Value
        If Worksheets("ASR").Range("DYD" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DYD" & rowNum).Value
    End If
    
    
    Range("AX" & loc.Row).Select
    'If a Fee Type 2 Exists for Container 4'
    While ActiveCell.Value <> ""
        ActiveCell.Offset(1).Select
    Wend
    'Current Spend
    If Worksheets("ASR").Range("CQI" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("CQI" & rowNum).Value
        If Worksheets("ASR").Range("CQJ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CQJ" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Billing Corrections'
    If Worksheets("ASR").Range("CYU" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("CYU" & rowNum).Value
        If Worksheets("ASR").Range("CYV" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CYV" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Rate Reductions
    If Worksheets("ASR").Range("DHG" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DHG" & rowNum).Value
        If Worksheets("ASR").Range("DHH" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DHH" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Vendor Switch
    If Worksheets("ASR").Range("DPS" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DPS" & rowNum).Value
        If Worksheets("ASR").Range("DPT" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DPT" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Service Standardizations
    If Worksheets("ASR").Range("DYF" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DYF" & rowNum).Value
        If Worksheets("ASR").Range("DYG" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DYG" & rowNum).Value
    End If
    
    
    Range("AX" & loc.Row).Select
    'If a Fee Type 3 Exists for Container 4'
    While ActiveCell.Value <> ""
        ActiveCell.Offset(1).Select
    Wend
    'Current Spend
    If Worksheets("ASR").Range("CQL" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("CQL" & rowNum).Value
        If Worksheets("ASR").Range("CQM" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CQM" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Billing Corrections'
    If Worksheets("ASR").Range("CYX" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("CYX" & rowNum).Value
        If Worksheets("ASR").Range("CYY" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CYY" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Rate Reductions
    If Worksheets("ASR").Range("DHJ" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DHJ" & rowNum).Value
        If Worksheets("ASR").Range("DHK" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DHK" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Vendor Switch
    If Worksheets("ASR").Range("DPV" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DPV" & rowNum).Value
        If Worksheets("ASR").Range("DPW" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DPW" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Service Standardizations
    If Worksheets("ASR").Range("DYI" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DYI" & rowNum).Value
        If Worksheets("ASR").Range("DYJ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DYJ" & rowNum).Value
    End If
    
    
    Range("AX" & loc.Row).Select
    'If a Fee Type 4 Exists for Container 4'
    While ActiveCell.Value <> ""
        ActiveCell.Offset(1).Select
    Wend
    'Current Spend
    If Worksheets("ASR").Range("CQO" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("CQO" & rowNum).Value
        If Worksheets("ASR").Range("CQP" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CQP" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Billing Corrections'
    If Worksheets("ASR").Range("CZA" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("CZA" & rowNum).Value
        If Worksheets("ASR").Range("CZB" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CZB" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Rate Reductions
    If Worksheets("ASR").Range("DHM" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DHM" & rowNum).Value
        If Worksheets("ASR").Range("DHN" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DHN" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Vendor Switch
    If Worksheets("ASR").Range("DPY" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DPY" & rowNum).Value
        If Worksheets("ASR").Range("DPZ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DPZ" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Service Standardizations
    If Worksheets("ASR").Range("DYL" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DYL" & rowNum).Value
        If Worksheets("ASR").Range("DYM" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DYM" & rowNum).Value
    End If
    
    
    Range("AX" & loc.Row).Select
    'If a Fee Type 5 Exists for Container 4'
    While ActiveCell.Value <> ""
        ActiveCell.Offset(1).Select
    Wend
    'Current Spend
    If Worksheets("ASR").Range("CQR" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("CQR" & rowNum).Value
        If Worksheets("ASR").Range("CQS" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CQS" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Billing Corrections'
    If Worksheets("ASR").Range("CZD" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("CZD" & rowNum).Value
        If Worksheets("ASR").Range("CZE" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CZE" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Rate Reductions
    If Worksheets("ASR").Range("DHP" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DHP" & rowNum).Value
        If Worksheets("ASR").Range("DHQ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DHQ" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Vendor Switch
    If Worksheets("ASR").Range("DQB" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DQB" & rowNum).Value
        If Worksheets("ASR").Range("DQC" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DQC" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Service Standardizations
    If Worksheets("ASR").Range("DYO" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DYO" & rowNum).Value
        If Worksheets("ASR").Range("DYP" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DYP" & rowNum).Value
    End If

    
End Sub



Public Sub Cont5NewRates(loc As Range, rowNum As Integer)
    'Implemented Rate Change Fees for Container 5'
    
    'If theres an Environmental Fee Rate Change for Container 5'
    While ActiveCell.Value <> ""
        ActiveCell.Offset(1).Select
    Wend
    'Current Spend
    If Worksheets("ASR").Range("CRC" & rowNum).Value <> "" Then
        ActiveCell.Value = "Environmental Fee"
        ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("CQD" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Billing Corrections'
    If Worksheets("ASR").Range("CZO" & rowNum).Value <> "" Then
        ActiveCell.Value = "Environmental Fee"
        ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("CZO" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Rate Reductions
    If Worksheets("ASR").Range("DIA" & rowNum).Value <> "" Then
        ActiveCell.Value = "Environmental Fee"
        ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("DIA" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Vendor Switch
    If Worksheets("ASR").Range("DQM" & rowNum).Value <> "" Then
        ActiveCell.Value = "Environmental Fee"
        ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("DQM" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Service Standardizations
    If Worksheets("ASR").Range("DYZ" & rowNum).Value <> "" Then
        ActiveCell.Value = "Environmental Fee"
        ActiveCell.Offset(, 1).Value = Worksheets("ASR").Range("DYZ" & rowNum).Value
    End If

        
    Range("AX" & loc.Row).Select
    'If a Fee Type 1 Exists for Container 5
    While ActiveCell.Value <> ""
        ActiveCell.Offset(1).Select
    Wend
    'Current Spend
    If Worksheets("ASR").Range("CRE" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("CRE" & rowNum).Value
        If Worksheets("ASR").Range("CRF" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CRF" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Billing Corrections'
    If Worksheets("ASR").Range("CZQ" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("CZQ" & rowNum).Value
        If Worksheets("ASR").Range("CZR" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CZR" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Rate Reductions
    If Worksheets("ASR").Range("DIC" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DIC" & rowNum).Value
        If Worksheets("ASR").Range("DID" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DID" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Vendor Switch
    If Worksheets("ASR").Range("DQO" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DQO" & rowNum).Value
        If Worksheets("ASR").Range("DQP" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DQP" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Service Standardizations
    If Worksheets("ASR").Range("DZB" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DZB" & rowNum).Value
        If Worksheets("ASR").Range("DZC" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DZC" & rowNum).Value
    End If
    
    
    Range("AX" & loc.Row).Select
    'If a Fee Type 2 Exists for Container 5'
    While ActiveCell.Value <> ""
        ActiveCell.Offset(1).Select
    Wend
    'Current Spend
    If Worksheets("ASR").Range("CRH" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("CRH" & rowNum).Value
        If Worksheets("ASR").Range("CRI" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CRI" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Billing Corrections'
    If Worksheets("ASR").Range("CZT" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("CZT" & rowNum).Value
        If Worksheets("ASR").Range("CZU" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CZU" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Rate Reductions
    If Worksheets("ASR").Range("DIF" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DIF" & rowNum).Value
        If Worksheets("ASR").Range("DIG" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DIG" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Vendor Switch
    If Worksheets("ASR").Range("DQR" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DQR" & rowNum).Value
        If Worksheets("ASR").Range("DQS" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DQS" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Service Standardizations
    If Worksheets("ASR").Range("DZE" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DZE" & rowNum).Value
        If Worksheets("ASR").Range("DZF" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DZF" & rowNum).Value
    End If
    
    
    Range("AX" & loc.Row).Select
    'If a Fee Type 3 Exists for Container 5'
    While ActiveCell.Value <> ""
        ActiveCell.Offset(1).Select
    Wend
    'Current Spend
    If Worksheets("ASR").Range("CRK" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("CRK" & rowNum).Value
        If Worksheets("ASR").Range("CRL" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CRL" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Billing Corrections'
    If Worksheets("ASR").Range("CZW" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("CZW" & rowNum).Value
        If Worksheets("ASR").Range("CZX" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CZX" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Rate Reductions
    If Worksheets("ASR").Range("DII" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DII" & rowNum).Value
        If Worksheets("ASR").Range("DIJ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DIJ" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Vendor Switch
    If Worksheets("ASR").Range("DQU" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DQU" & rowNum).Value
        If Worksheets("ASR").Range("DQV" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DQV" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Service Standardizations
    If Worksheets("ASR").Range("DZG" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DZH" & rowNum).Value
        If Worksheets("ASR").Range("DZI" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DZI" & rowNum).Value
    End If
    
    
    Range("AX" & loc.Row).Select
    'If a Fee Type 4 Exists for Container 5'
    While ActiveCell.Value <> ""
        ActiveCell.Offset(1).Select
    Wend
    'Current Spend
    If Worksheets("ASR").Range("CRN" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("CRN" & rowNum).Value
        If Worksheets("ASR").Range("CRO" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CRO" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Billing Corrections'
    If Worksheets("ASR").Range("CZZ" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("CZZ" & rowNum).Value
        If Worksheets("ASR").Range("DAA" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DAA" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Rate Reductions
    If Worksheets("ASR").Range("DIL" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DIL" & rowNum).Value
        If Worksheets("ASR").Range("DIM" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DIM" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Vendor Switch
    If Worksheets("ASR").Range("DQX" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DQX" & rowNum).Value
        If Worksheets("ASR").Range("DQZ" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DQZ" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Service Standardizations
    If Worksheets("ASR").Range("DZK" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DZK" & rowNum).Value
        If Worksheets("ASR").Range("DZL" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DZL" & rowNum).Value
    End If
    
    
    Range("AX" & loc.Row).Select
    'If a Fee Type 5 Exists for Container 5'
    While ActiveCell.Value <> ""
        ActiveCell.Offset(1).Select
    Wend
    'Current Spend
    If Worksheets("ASR").Range("CRQ" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("CRQ" & rowNum).Value
        If Worksheets("ASR").Range("CRR" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("CRR" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Billing Corrections'
    If Worksheets("ASR").Range("DAC" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DAC" & rowNum).Value
        If Worksheets("ASR").Range("DAD" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DAD" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Rate Reductions
    If Worksheets("ASR").Range("DIO" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DIO" & rowNum).Value
        If Worksheets("ASR").Range("DIP" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DIP" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Vendor Switch
    If Worksheets("ASR").Range("DRA" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DRA" & rowNum).Value
        If Worksheets("ASR").Range("DRB" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DRB" & rowNum).Value
    End If
    ActiveCell.Offset(, 2).Select
    'Service Standardizations
    If Worksheets("ASR").Range("DZN" & rowNum).Value <> "" Then
        ActiveCell.Value = Worksheets("ASR").Range("DZN" & rowNum).Value
        If Worksheets("ASR").Range("DZO" & rowNum).Value <> "" Then ActiveCell.Offset(0, 1).Value = Worksheets("ASR").Range("DZO" & rowNum).Value
    End If
    
End Sub
